Public Class Form1
Private myCMS As New ContextMenuStrip
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim myMI As ToolStripItem = myCMS.Items.Add("MyOption")
AddHandler myMI.Click, AddressOf MyMenuItemClick
PictureBox1.ContextMenuStrip = myCMS
End Sub
Private Sub MyMenuItemClick(sender As System.Object, e As System.EventArgs)
MsgBox(CType(sender, ToolStripItem).Text)
MsgBox(myCMS.SourceControl.Tag)
End Sub
End Class