'Dim mainmenu As New ToolStripMenuItem
        'start.MenuStrip1.Items.Add(mainmenu) 'entfällt, falls bereits in
 
        ' MenuStrip1 vorhanden
        'Referenz auf Mainmenu in "start"/menustrip1 (Annahme .Name= 
        ' "keyofmainmenu")
        Dim MainMenu As ToolStripMenuItem = _
         CType(start.MenuStrip1.Items(start.MenuStrip1.Items.IndexOfKey( _
         "Plugins")), ToolStripMenuItem)
 
        With mainmenu
            .Text = "Plugins"
            .Name = "Plugins"
            'Dim tsi As ToolStripMenuItem = CType(.DropDownItems.Add("test"),  _
            'ToolStripMenuItem)
            'tsi.Name = "keyoftest" 'Schlüssel setzen, nachdem Objektreferenz 
            ' besorgt 
        End With
 
        Dim submenu As New ToolStripMenuItem
        With submenu
            .Text = "test"
            .Name = "keyoftest"
        End With
 
        Dim mainmenu_itemindex As Integer = start.MenuStrip1.Items.IndexOf( _
          MainMenu)
        'Schlüssel prüfen 
        Dim submenu_dropdownindex As Integer = _
          MainMenu.DropDownItems.IndexOfKey("keyoftest")
 
        If mainmenu_itemindex < 0 Then
            MsgBox("Mainmenu nicht im Menustrip enthalten")
 
            If MainMenu.DropDownItems.ContainsKey("keyofsubitem") Then Exit Sub
 
            Dim subitem As New ToolStripMenuItem
            subitem.Text = "Sub Item"
            subitem.Name = "keyofsubitem"
            MainMenu.DropDownItems.Add(subitem)
        Else
            MsgBox("Mainmenu im Menustrip enthalten: " & CStr( _
              mainmenu_itemindex))
 
            If MainMenu.DropDownItems.ContainsKey("keyofsubitem") Then Exit Sub
 
            Dim subitem As New ToolStripMenuItem
            subitem.Text = "Sub Item"
            subitem.Name = "keyofsubitem"
            MainMenu.DropDownItems.Add(subitem)
        End If