'Prüfen ob Hauptmenüelemt vorhanden ist
        If start.MenuStrip1.Items.ContainsKey(mainmenu.Name) = True Then
            Dim mainindex As Integer = start.MenuStrip1.Items.IndexOf(mainmenu)
            MsgBox("Hauptmenü Item ist im Menü bereits enthalten: " & CStr( _
              mainindex))
 
            Dim MenItem As ToolStripMenuItem = CType(mainmenu, _
              ToolStripMenuItem)
            'Prüft ob Submenüelemt vorhanden
            If MenItem.DropDownItems.ContainsKey(submenu.Name) = True Then
                Dim subindex As Integer = MenItem.DropDownItems.IndexOf(submenu)
                MsgBox("Untermenü Item ist im Menü bereits enthalten: " & CStr( _
                  subindex))
            Else
                MenItem.DropDownItems.Add(mit(1))
            End If
        End If

Dim MenItem As ToolStripMenuItem = CType(mainmenu, ToolStripMenuItem)