Private Sub OutBarWSP_ItemClick(ByVal Group As Long, ByVal Item As Long, Button _
  As Integer)
  Dim i As Integer
 
  Select Case Group
    Case 1
        MsgBox ("11111")
 
    Case 2
        MsgBox ("222222")
 
  End Select
 
End Sub

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 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
        MsgBox ("222222")
 
 
  End Select
 
  '  Unload Me
 
End Sub