Private Sub OutBar1_ItemClick(ByVal sender As System.Object, _
  ByVal e As sevSoft.OutBar.ItemClickEventArgs) Handles OutBar1.ItemClick
 
  ' Gruppe abfragen, die geöffnet ist
  Select Case e.Group
    Case 1
      ' 1. Gruppe: jetzt Menü-Element abfragen, 
      ' auf das geklickt wurde
      Select Case e.Index
        Case 1
          ' 1. Menüelement der 1. Gruppe
          ' --> Form2 anzeigen
          Dim oForm As New Form2
          oForm.Show()
 
        Case 2
          ' 2. Menüelement der 1. Gruppe
          ' --> Form3 anzeigen
          Dim oForm As New Form3
          oForm.Show()
      End Select
  End Select
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de