With Me.mnuMdiBar
        Set .ImageList = imgList
'        .Style = mnuOfficeXP
        With .MenuItems
            '------------------- Zuchtschau -----------------------------------
            Set oMnuZuchtschau = .Add("&Zuchtschau", "MnuZuchtschau")
            .Add "&Bearbeiten", "ZS_Bearbeiten", oMnuZuchtschau
                .Item("ZS_Bearbeiten").ToolTipIcon = InfoIcon
                .Item("ZS_Bearbeiten").ToolTipTitle = "Bearbeiten einer" & _
                  "Zuchtschau"
                .Item("ZS_Bearbeiten").ToolTipText = "Änderungen und" & _
                "Erweiterungen einer Zuchtschau"
 
            '------------------- System ---------------------------------------
            Set oMnuSystem = .Add("S&ystem", "MnuSystem")
            .Add "&Drucker", "SY_Drucker", oMnuSystem
            .Add "&TxText Notiz", "SY_Notiz", oMnuSystem
            .Add "T&est", "SY_Test", oMnuSystem
 
 
            '------------------- Beenden --------------------------------------
            Set oMnuBeenden = .Add("&Beenden", "MnuBeenden")
            .Add "&Exit", "BE_Exit", oMnuBeenden
            .Add "-", "", oMnuBeenden
            .Add "&Versions - Info", "BE_Info", oMnuBeenden
 
 
        End With
    End With