Private Sub outMain_Click(ByVal Group As Long, ByVal Item As Long)
Dim i As Integer
  Select Case Group
    ' 1. Gruppe (Kontakte)
    Case 1
      For i = 1 To outMain.ItemCount(Group)
        mnuKontakte_Click = (i = Item)
      Next i
 
    ' 2. Gruppe (Internet)
    Case 2
      For i = 1 To outMain.ItemCount(Group)
        mnuBrowser_Click = (i = Item)
        mnuemail_click = (i = Item)
      Next i
  End Select
End Sub