Private Sub outMain_Click(ByVal Group As Long, ByVal Item As Long)
 
  Select Case Group ' 1. Gruppe Kontakte
    Case 1
      Select Case Item
        Case 1
          mnuKontakte_Click
        Case 2
      End Select
 
    ' 2. Gruppe Internet
    Case 2
      Select Case Item
        Case 1
          mnuemail_click
        Case 2
          mnuBrowser_Click
    End Select
  End Select
End Sub