[2005] Removing menuitem
Dim Ms2DDSelectedItem As Integer
Sub MenuItem_RightClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
If e.Button = Windows.Forms.MouseButtons.Right Then
Me.ms2.DropDown.AutoClose = False
Dim items As ToolStripItemCollection = ms2.DropDownItems
For index As Integer = items.Count - 1 To 0 Step -1
If items(index).Selected = True Then
Ms2DDSelectedItem = index
Exit For
End If
Next index
Me.cm1.Show(Control.MousePosition.X, Control.MousePosition.Y)
Me.ms2.DropDown.AutoClose = True
End If
End Sub
Private Sub cm1Delete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cm1Delete.Click
Me.ms2.DropDown.Close()
Me.ms2.DropDownItems.RemoveAt(Ms2DDSelectedItem)
My.Settings.SavedSearches.RemoveAt(Ms2DDSelectedItem)
End Sub
Everything works as planned, but if you see anything wrong or have a suggestion, please let me know :wave:

