Vb.net 如何使用字符串选择对象？vb

我想为单击的picturebox设置一个新图像。 所以我想我可以在同一个clickevent（SelectEvent6x6）上发送所有内容，然后使用sender.name来确定picturebox需要更改的内容。 但是，这不起作用，因为它是字符串而不是对象

    Private Sub SelectEvent6x6(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles PB00.Click, PB55.Click, PB54.Click, PB53.Click, PB52.Click, PB51.Click, PB50.Click, PB45.Click, PB44.Click, PB43.Click, PB42.Click, PB41.Click, PB40.Click, PB35.Click, PB34.Click, PB33.Click, PB32.Click, PB31.Click, PB30.Click, PB25.Click, PB24.Click, PB23.Click, PB22.Click, PB21.Click, PB20.Click, PB15.Click, PB14.Click, PB13.Click, PB12.Click, PB11.Click, PB10.Click, PB05.Click, PB04.Click, PB03.Click, PB02.Click, PB01.Click
        Dim Selected As String
        Selected = sender.name
        'PB00.Image = Image.FromFile(My.Computer.FileSystem.CurrentDirectory + "\objects20130308b\map\mapgrassselected.png")
        Selected.Image = Image.FromFile(My.Computer.FileSystem.CurrentDirectory + "\objects20130308b\map\mapgrassselected.png")

---

我认为，发送者应该是picturebox本身。

这样做：

Dim picBox as PictureBox = CType(sender, PictureBox)
picBox.Image = Image.FromFile(imagePath)