Private Lista(4) As PictureBox
 
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For A = 0 To 4
            Lista(A) = New PictureBox                       ' Creamos una nueva instancia
            Lista(A).Size = New Size(32, 32)                ' Tamaño PictureBox
            Lista(A).BorderStyle = 1                        ' Dibuja borde
            Lista(A).Location = New Point(A * 32 + A, 50)   ' Posicionamos PictureBox
            Me.Controls.Add(Lista(A))                       ' Añadimos al Formulario
            AddHandler Lista(A).Click, AddressOf Evento1    ' Agregamos evento Click
        Next A      
End Sub
 
Private Sub Evento1(sender As Object, e As EventArgs)
        Dim Index As Integer = Array.IndexOf(Lista, sender) ' Obtenemos el índice seleccionado
        MsgBox("Has pulsado " & Index + 1 & " recuadro.")
 End Sub
 

Private Matriz(2, 3) As PictureBox                      ' Matriz de 3x4 elementos
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load       
 
        ' Dibujamos matriz bidimensional de 3 filas y 4 columnas
        For F = 0 To 2                                         ' Recorre las Filas
            For C = 0 To 3                                     ' Recorre las Columnas
                Matriz(F, C) = New PictureBox
                Matriz(F, C).Size = New Size(32, 32)
                Matriz(F, C).BorderStyle = 1
                Matriz(F, C).Location = New Point(C * 32 + C, F * 32 + F + 100)
                Me.Controls.Add(Matriz(F, C))
                AddHandler Matriz(F, C).Click, AddressOf Evento2
            Next C
        Next F
    End Sub
 
    Private Sub Evento2(sender As Object, e As EventArgs)
        ' Fallo porque Array.IndexOf  es para matrices de 1 sola dimensión
        Dim Index As Integer = Array.IndexOf(Matriz, sender)
        '...
    End Sub
 
 

 Private Sub Evento2(sender As Object, e As EventArgs)        
        sender.BackColor = Color.Blue
        '.......
    End Sub
 

Dim Index As Integer = Array.IndexOf(Lista, sender)
' Esto mismo con una variable matriz de mismo tipo que la principal y donde la clase Array pueda
' obtener los 2 indices al igual que hace con 1 solo. Aunque sus métodos solo dicen que es para
' 1 dimensión. Si hay algo parecido a esta clase y obtenerlo fácilmente.
 

Public Class Form1
    Private Matriz(2, 3) As PictureBox                          ' Matriz de 3x4 elementos
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        ' Dibujamos matriz bidimensional de 3 filas y 4 columnas
        For F = 0 To 2                                         ' Recorre las Filas
            For C = 0 To 3                                     ' Recorre las Columnas
                Matriz(F, C) = New PictureBox
                Matriz(F, C).Size = New Size(32, 32)
                Matriz(F, C).BorderStyle = 1
                Matriz(F, C).Location = New Point(C * 32 + C, F * 32 + F + 100)
 
                Dim obj As New TestClass()
                obj.Valor = 0
                obj.F = F
                obj.C = C
                Matriz(F, C).Tag = obj
 
                Me.Controls.Add(Matriz(F, C))
                AddHandler Matriz(F, C).Click, AddressOf Evento2
            Next C
        Next F
    End Sub
 
    Private Sub Evento2(sender As Object, e As EventArgs)
        Dim pcb As PictureBox = DirectCast(sender, PictureBox)
        Dim obj As TestClass = DirectCast(pcb.Tag, TestClass)
        pcb.BackColor = Color.Blue
        MsgBox("Fila y Columna (" & obj.F + 1 & "," & obj.C + 1 & ")")
    End Sub
 
    ''''' CLASE PARA ASIGNAR LAS PROPIEDADES
    Friend NotInheritable Class TestClass
        Public Property Valor As Integer
        Public Property F As Integer
        Public Property C As Integer
 
        Public Sub New() ' Constructor vacío
        End Sub
    End Class
 
End Class
 

obj.Valor = PicPrincipal.Tag
Matriz(obj.F, obj.C).Tag = obj
 

Public Class Form1
    Private Matriz(2, 3) As PictureBox                          ' Matriz de 3x4 elementos
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        ' Dibujamos matriz bidimensional de 3 filas y 4 columnas
        For F = 0 To 2                                          ' Recorre las Filas
            For C = 0 To 3                                      ' Recorre las Columnas
                Matriz(F, C) = New PictureBox
                Matriz(F, C).Size = New Size(32, 32)
                Matriz(F, C).BorderStyle = 1
                Matriz(F, C).Location = New Point(C * 32 + C, F * 32 + F + 100)
                Matriz(F, C).Tag = 0
                Me.Controls.Add(Matriz(F, C))
                AddHandler Matriz(F, C).Click, AddressOf Evento2
            Next C
        Next F
    End Sub
 
    Private Sub Evento2(sender As Object, e As EventArgs)
        Dim indices As Integer() = IndicesOf(Matriz, DirectCast(sender, PictureBox))
        Dim pcb As PictureBox = DirectCast(sender, PictureBox)
        pcb.BackColor = Color.Blue
        MsgBox("Valor Fila: " & indices(0) + 1 & " y Columna: " & indices(1) + 1)
    End Sub
 
    ' Función obtener índice de una Matriz de 2 dimensiones
    Public Shared Function IndicesOf(Of T)(ByVal [array] As T(,), ByVal value As T) As Integer()
 
        For i As Integer = [array].GetLowerBound(0) To [array].GetUpperBound(0)
            For j As Integer = [array].GetLowerBound(1) To [array].GetUpperBound(1)
                If [array](i, j).Equals(value) Then
                    Return {i, j}
                End If
            Next j
        Next i
        Return Nothing
 
    End Function
End Class