Private Sub OutBarWSP_ItemClick(ByVal Group As Long, ByVal Item As Long, Button _
  As Integer)
  ' Klick auf Element im OutBar-Control
  Dim i As Integer
 
  Select Case Group
    ' 1. Gruppe (Allgemeines)
    Case 1
 
        Select Case OutBarWSP.Groups(Group).Items(Item).Key
            Case "Login"
                MsgBox ("Login")
 
            Case "Logout"
                MsgBox ("Logout")
 
            Case "Aendern"
                Aendern
 
            Case "loeschen"
               Loeschen
               Neu
 
            Case "schliessen"
                Unload Me
            End Select
 
 
        MsgBox ("11111")
 
    ' 2. Gruppe (Demo)
    Case 2
       Select Case Item
        Case 1
          ' 1. Eintrag der 2. Gruppe
            MsgBox ("222222")
      End Select      
  End Select
 
  '  Unload Me
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de