Menu prawego przycisku myszy

Szybki kod na dodanie menu do naszego obiektu po kliknięciu na niego prawym przyciskiem myszy. Aby to zrobić zaznaczamy element i w jego Zdarzeniach znajdujemy: MauseUp

Po utworzeniu uchwytu wpisujemy kod

 Private Sub Form1_MouseUp(sender As Object, e As MouseEventArgs) Handles MyBase.MouseUp
        If e.Button <> Windows.Forms.MouseButtons.Right Then Return
        Dim cms = New ContextMenuStrip
        Dim item1 = cms.Items.Add("Element 1")
        item1.Tag = 1
        AddHandler item1.Click, AddressOf menuChoice
        Dim item2 = cms.Items.Add("Element 2")
        item2.Tag = 2
        AddHandler item2.Click, AddressOf menuChoice
        Dim item3 = cms.Items.Add("Element 3")
        item3.Tag = 3
        AddHandler item3.Click, AddressOf menuChoice
        '...
        cms.Show(Me, e.Location)
    End Sub

    Private Sub menuChoice(ByVal sender As Object, ByVal e As EventArgs)
        Dim item = CType(sender, ToolStripMenuItem)
        Dim selection = CInt(item.Tag)
        Select Case item.Tag
            Case 1
                MsgBox("Wybrałeś pierwszy element")
            Case 2
                MsgBox("Wybrałeś drugi element")
            Case 3
                MsgBox("Wybrałeś trzeci element")
                '...
        End Select
    End Sub

Efekt jak poniżej: