Private Sub otbMenu_Click(ByVal Group As Long, ByVal Item As Long)
  ' Klick auf Element im OutBar-Control
 
Dim i As Integer
Dim bytK As Byte
 
 
For bytK = 0 To Forms.Count - 1
   If Forms(bytK).Name <> "frmMenu" And Forms(bytK).Name <> "mdiMain" Then
      Unload Forms(bytK)
   End If
Next
 
Select Case Group
   ' 1. Gruppe (FLAGS)
   Case 1
    Select Case Item
 
        '1. Item (Neu)
        Case 1
            frmDialogNeuFlag.Show
        '2. Item (Verkauf)
        Case 2
            frmFlagVerkauf.Show
        '3. Item (Produktion)
        Case 3
            frmDialogProduktion.Show
        '4. Item (Status)
        Case 4
            frmDialogExtremwertcheck.Show
 
        Case 5
            frmGrenzwerte.Show
    End Select
 
   ' 2. Gruppe (Offene Bestellungen)
   Case 2
      Select Case Item
         ' 1. Item (OB Eingang)
         Case 1
            frmOBEingang.Show
        ' 2. Item (OB Ausgang)
        Case 2
            frmOBAusgang.Show
 
      End Select
 
   ' 3. Gruppe (Pflege)
   Case 3
      Select Case Item
         Case 1
            frmPflegeArtikel.Show
         Case 2
            frmPflegeKunden2.Show
 
         Case 3
            frmPflegeLieferanten2.Show
 
         Case 4
            frmPflegeHersteller.Show
 
         Case 5
            frmPflegeFlags.Show
 
        End Select
 
    ' 4. Gruppe (Verwaltung)
    Case 4
       Select Case Item
        Case 1
            frmMaterialeingang.Show
 
        Case 2
            frmMaterialausgang.Show
 
        Case 3
            frmLiefervorschlag.Show
       End Select
 
 
    ' 5. Gruppe (Suche)
    Case 5
       Select Case Item
         Case 1
            frmDialogSuche.Show
       End Select
 
    ' 6. Gruppe (Bestände)
    Case 6
       Select Case Item
         Case 1
            frmBestand.Show
         Case 2
            frmFlagBestand.Show
       End Select
End Select
 
End Sub