Private Sub DynamicClick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
        If TypeOf sender Is PictureBox Then
            Dim picBox As PictureBox = CType(sender, PictureBox)
            MessageBox.Show(picBox.Name)
            '...
        End If
    End Sub