Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Label1.ContextMenuStrip = ContextMenuStrip1
        Label2.ContextMenuStrip = ContextMenuStrip1
    End Sub
 
    Private Sub TestToolStripMenuItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ContextMenuStrip1.Click
        Dim contextMenu As ContextMenuStrip = CType(sender, ContextMenuStrip)
        If contextMenu.Tag Is Nothing Then
            Dim frm = New Form2
            frm.Label1.Text = ContextMenuStrip1.SourceControl.Name.ToString
            contextMenu.Tag = frm
            frm.Tag = contextMenu
            AddHandler frm.FormClosed, AddressOf frm_FormClosed
            frm.Show()
        End If
    End Sub
 
    Private Sub frm_FormClosed(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.FormClosedEventArgs)
        Dim frm As Form = CType(sender, Form)
        CType(frm.Tag, ContextMenuStrip).Tag = Nothing
    End Sub