Как получить свойства объекта при выборе пункта ContextMenuStrip

Public Class Form1
    Private TilPictureBox As PictureBox
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim cms As New ContextMenuStrip
        cms.Items.Add("Set")
        AddHandler cms.Items.Item(0).Click, AddressOf Item0Click
 
        Dim pb1 As New PictureBox With {.Location = New Point(10, 10), .Size = New Size(30, 30), .BackColor = Color.Red, .ContextMenuStrip = cms}
        Dim pb2 As New PictureBox With {.Location = New Point(55, 10), .Size = New Size(30, 30), .BackColor = Color.Green, .ContextMenuStrip = cms}
        Dim pb3 As New PictureBox With {.Location = New Point(100, 10), .Size = New Size(30, 30), .BackColor = Color.Blue, .ContextMenuStrip = cms}
 
        Me.Controls.AddRange(New Control() {pb1, pb2, pb3})
 
        TilPictureBox = New PictureBox With {.Location = New Point(10, 50), .Size = New Size(120, 50)}
        Me.Controls.Add(TilPictureBox)
 
    End Sub
 
    Private Sub Item0Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'TilPictureBox.BackColor = Color.Aqua 'тест
        'TilPictureBox.BackColor = ??? 'что сюда писать.
    End Sub
End Class

ContextMenu1.SourceControl