Private Sub MenuBar1_ItemClick(ByVal Item As sevMenuXP.MenuItem)
  ' Menü-Eintrag wurde ausgewählt
  Select Case Item.Key
    'Datei
    Case "UserExit"
        If AktFormCanClose = "false" Then
            MsgBox "Das aktuell geöffnete Fenster kann nicht geschlossen" & _
              "werden, beenden Sie bitte den Vorgang.", 16, _
              MDIfrmGlobal.Caption & " - Stop" 'erst aktuelles fenster 
            ' schliessen
            Exit Sub
        ElseIf AktFormCanClose = "true" Then
            NewFormOpen = "Close"
            RecordsClose
            OffenesFensterPruefen 'ggf. fenster und verbindungen schliessen
            If con.State = 1 Then con.Close
            ExplodeForm Me, 500
            Load frmLogin
            frmLogin.Show
            Unload MDIfrmGlobal
        Else
            MsgBox "Unbekannter Fehler, bitte wenden Sie sich an den Support.", _
              64, MDIfrmGlobal.Caption & " - Info" 'erst aktuelles fenster 
            ' schliessen
        End If
    Case "exit"
        If AktFormCanClose = "false" Then 'aktuelle form darf nicht geschlossen 
        ' werden
            MsgBox "Das aktuell geöffnete Fenster kann nicht geschlossen" & _
              "werden, beenden Sie bitte den Vorgang.", 16, _
              MDIfrmGlobal.Caption & " - Stop" 'erst aktuelles fenster 
            ' schliessen
            Exit Sub
        ElseIf AktFormCanClose = "true" Then 'aktuelle form darf geschlossen 
        ' werden
            ExplodeForm Me, 500 'was fürs auge
            NewFormOpen = "Close" 'beim prüfen den gewünschten ausstieg 
            ' mitteilen
            OffenesFensterPruefen 'ggf. fenster und verbindungen schliessen
            UnloadForms 'alle formen schließen
            RecordsClose ' alle records schließen und zerstören
            If con.State = 1 Then con.Close 'db schließen...
            Set con = Nothing '...und zerstören
            End 'ich bin weg
        Else
            MsgBox "Unbekannter Fehler, bitte wenden Sie sich an den Support.", _
              64, MDIfrmGlobal.Caption & " - Info" 'erst aktuelles fenster 
            ' schliessen
        End If
    'Projektdaten
    Case "PrProjekte"
            frmProjekteOpenSelectLaden
            frmOutBarGlobal.OutbarGobal.Group = 1
    Case "PrFirmen"
        frmFirmaOpenSelectLaden
        frmOutBarGlobal.OutbarGobal.Group = 1
    Case "PrWaren"
        frmWarenOpenSelectLaden
        frmOutBarGlobal.OutbarGobal.Group = 1
    'Vorgaben
    Case "VoME"
            frmMELaden
            frmOutBarGlobal.OutbarGobal.Group = 2
    Case "VoNumVerfahren"
            frmNumVerfahrenLaden
            frmOutBarGlobal.OutbarGobal.Group = 2
    Case "VoSteuer"
            frmSteuerLaden
            frmOutBarGlobal.OutbarGobal.Group = 2
    Case "VoStundenArt"
            frmStundenArtLaden
            frmOutBarGlobal.OutbarGobal.Group = 2
    'Administration
    Case "AdBelegListe"
            frmBelegListeLaden
            If frmOutBarGlobal.OutbarGobal.GroupCount = 3 Then
                frmOutBarGlobal.OutbarGobal.Group = 3
            Else
                frmOutBarGlobal.OutbarGobal.Group = 2
            End If
    Case "AdBenutzerverwaltung"
            frmBenutzerLaden
            If frmOutBarGlobal.OutbarGobal.GroupCount = 3 Then
                frmOutBarGlobal.OutbarGobal.Group = 3
            Else
                frmOutBarGlobal.OutbarGobal.Group = 2
            End If
     Case "AdHilfe"
            frmHilfeLaden
            If frmOutBarGlobal.OutbarGobal.GroupCount = 3 Then
                frmOutBarGlobal.OutbarGobal.Group = 3
            Else
                frmOutBarGlobal.OutbarGobal.Group = 2
            End If
    Case "AdTools"
            frmToolsLaden
            If frmOutBarGlobal.OutbarGobal.GroupCount = 3 Then
                frmOutBarGlobal.OutbarGobal.Group = 3
            Else
                frmOutBarGlobal.OutbarGobal.Group = 2
            End If
    'listen
    Case "LiFirmen"
        UseForm = "frmFirma"
        frmListeDruckLaden
    Case "LiWaren"
        UseForm = "frmWaren"
        frmListeDruckLaden
    Case "LiAuftraege"
        UseForm = "frmProjekte"
        frmListeDruckLaden
    'Einstellungen
    Case "savepos"
        HauptfensterSave          'Hauptfenster position und größe speichern
    Case "saveStartMenu"
        StartMenuSave             'startmenü für start speichern
    Case "HfInhalt"
        X = Shell("hh " & Pfad1 & "Hilfe\ProjectData.chm", 1)
    Case "HfProjectData"
            frmUeberProjectDataLaden
    End Select
    End Sub

____________________________________________
Nur die Dummen wissen alles selbst am besten.