Dim oGroup As sevOutBar4.GroupItem
Dim i As Integer
 
        For i = 1 To OutBar0.GroupCount
            Set oGroup = OutBar0.Groups(i)
            With oGroup
                .ItemDisplayStyle = 0  '(0/1)
            End With
        Next i