Dim sm As ToolStripMenuItem = CType( _
  Me.SettingsToolStripMenuItem.DropDownItems.Add(myPlugIn.PlugInName), _
  ToolStripMenuItem)
            Dim pm As ToolStripMenuItem = CType( _
            Me.ChangePositionToolStripMenuItem.DropDownItems.Add( _
            myPlugIn.PlugInName), ToolStripMenuItem)
            AddHandler sm.Click, AddressOf Mein_SettingsMenue_Click
            AddHandler pm.Click, AddressOf Mein_PositionMenue_Click