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

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de