Option Explicit
 
Private Sub Check1_Click()
 
Aktiv_Deaktiv
 
End Sub
 
Private Sub Form_Load()
'Notfalls vorher der Checkbox einen Wert zuweisen
Aktiv_Deaktiv
End Sub
 
Private Sub OutBar1_ItemClick(ByVal Group As Long, ByVal Item As Long, Button _
  As Integer)
MsgBox "Aktiv"
 
End Sub
 
Sub Aktiv_Deaktiv()
 
Dim i As Long
'Loop über alle Gruppen
For i = 1 To Me.OutBar1.GroupCount
 
    Me.OutBar1.Groups(i).Enabled = Me.Check1.Value
Next
 
End Sub