[VB .NET] ContextMenuStrip sender

[Mabi]

Ciao. Ho un problema con un ContextMenuStrip che visualizzo alla pressione del tasto destro su delle PictureBox. Il menù è su due livelli con una voce che ne contiene tre.
Vorrei riuscire a capire qual è l'oggetto (PictureBox) che ha originato l'evento.

Al momento con questo codice riesco a farlo solo a partire dal livello superiore e non dalle tre voci
Grazie

Public Class Form1

    Private Sub PictureBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp
        Menu_1(PictureBox1, e)
    End Sub

    Private Sub PictureBox2_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox2.MouseUp
        Menu_1(PictureBox2, e)
    End Sub

    Private Sub Menu_1(sender As Object, e As MouseEventArgs)
        If (e.Button <> System.Windows.Forms.MouseButtons.Right) Then Return

        Dim tm = New ToolStripMenuItem("Livello superiore")
        Dim cms As New ContextMenuStrip
        cms.Items.Add(tm)
        AddHandler cms.Items(0).Click, AddressOf mnuItem_Clicked

        Dim item1 = New ToolStripMenuItem("Elemento 1")
        item1.Tag = item1.Text
        tm.DropDownItems.Add(item1)
        AddHandler item1.Click, AddressOf mnuItem_Clicked
        Dim item2 = New ToolStripMenuItem("Elemento 2")
        item2.Tag = item2.Text
        tm.DropDownItems.Add(item2)
        AddHandler item2.Click, AddressOf mnuItem_Clicked
        Dim item3 = New ToolStripMenuItem("Elemento 3")
        item3.Tag = item3.Text
        tm.DropDownItems.Add(item3)
        AddHandler item3.Click, AddressOf mnuItem_Clicked

        cms.Show(sender, e.Location)
    End Sub

    Private Sub mnuItem_Clicked(sender As Object, e As EventArgs)
        Dim MenuItem1 As ToolStripItem = sender
        Dim owner As ContextMenuStrip = MenuItem1.Owner
        Dim sourcecontrol As Control = owner.SourceControl

        MsgBox(sourcecontrol.Name)
    End Sub
End Class

[Mabi]

Nessuna idea?

[Gades]

Penso di sapere come risolvere il tuo problema ma prima voglio provarlo.
Oggi pomeriggio dovrei riuscire a risponderti.

[Gades]

E' un discreto problema, dipendente soprattutto dalla versione di Vn.bet hce stai usando.

Il roblema di fondo e' hce i sottomenu del menu contestuale vengono visti ocme menu "classici" e non tute le versioni di vb ne permettono il casting con ctype.
Se ci riesci sei a cavallo, senon ci riesci perhce la tua versione di vb non lo permette ... beh diventa un piccolo casino.

[Mabi]

Non pensavo potesse essere un problema di versione di VB .NET soprattutto perché uso VS 2015.
Ti ringrazio comunque per la risposta.

Ho trovato una soluzione forse poco elegante ma concreta. Al momento della creazione del menù salvo esternamente l'origine di chi ha richiamato l'evento:

    Dim Ctrl As Control

    Private Sub PictureBox_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp, PictureBox2.MouseUp
        Menu_1(sender, e)
    End Sub

    Private Sub Menu_1(sender As Object, e As MouseEventArgs)
        If (e.Button <> System.Windows.Forms.MouseButtons.Right) Then Return

        Ctrl = sender

        Dim tm = New ToolStripMenuItem("Livello superiore")
        Dim cms As New ContextMenuStrip

        cms.Items.Add(tm)
        AddHandler cms.Items(0).Click, AddressOf mnuItem_Clicked

        Dim item1 = New ToolStripMenuItem("Elemento 1")
        item1.Tag = item1.Text
        tm.DropDownItems.Add(item1)
        AddHandler item1.Click, AddressOf mnuItem_Clicked
        Dim item2 = New ToolStripMenuItem("Elemento 2")
        item2.Tag = item2.Text
        tm.DropDownItems.Add(item2)
        AddHandler item2.Click, AddressOf mnuItem_Clicked
        Dim item3 = New ToolStripMenuItem("Elemento 3")
        item3.Tag = item3.Text
        tm.DropDownItems.Add(item3)
        AddHandler item3.Click, AddressOf mnuItem_Clicked

        cms.Show(sender, e.Location)
    End Sub

    Private Sub mnuItem_Clicked(sender As Object, e As EventArgs)
        MsgBox(Ctrl.Name)
    End Sub