CType(CType(sender, ToolStripMenuItem).Owner, ContextMenuStrip).SourceControl

Private lstMeinControl As New List(Of ucMeinControl)
 
For intCount As Integer = 0 To 4
  lstMeinControl.Add(New ucMeinControl())
  Me.Controls.Add(lstMeinControl(intCount))
  lstMeinControl(intCount).ContextMenuStrip = ContextMenuStrip1
Next
 
...
 
'Context Menu
Private Sub TestToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e _
  As System.EventArgs) Handles TestToolStripMenuItem.Click
 
  Form1.Show()
  Form1.lblName.Text = ContextMenuStrip1.SourceControl.Name
 
  'Dim c As Object
  'c = CType(CType(sender, ToolStripMenuItem).Owner, 
  ' ContextMenuStrip).SourceControl
  'Form1.lblName.Text = c.Name