Menu contestuale

Private mioCxtMenuStrip As ContextMenuStrip
Public Sub New()
' creazione a runtime del menu contestuale

mioCxtMenuStrip = New ContextMenuStrip()
mioCxtMenuStrip.Items.Add("Pulisci")
mioCxtMenuStrip.Items.Add("Spolvera")
mioCxtMenuStrip.Items.Add("Spazza")
AddHandler mioCxtMenuStrip.Items(0).Click, AddressOf MenuContestuale_Click
AddHandler mioCxtMenuStrip.Items(1).Click, AddressOf MenuContestuale_Click
AddHandler mioCxtMenuStrip.Items(2).Click,
AddressOf MenuContestuale_Click
' assegna al form, il menu contestuale creato
Me.ContextMenuStrip = mioCxtMenuStrip
End Sub
Private Sub MenuContestuale_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
MsgBox(sender.Text)
End Sub
End Class