Dim A(0 To 3, 0 To 3) As Integer

Private Sub Form_Load()
    T.Width = 6100
    T.Height = 6100
    For i = 0 To 3
        T.ColWidth(i) = 1500
        T.RowHeight(i) = 1500
    Next i
    A(0, 0) = 1
    A(0, 1) = 2
    A(0, 2) = 3
    A(0, 3) = 4
    A(1, 0) = 5
    A(1, 1) = 6
    A(1, 2) = 7
    A(1, 3) = 8
    A(2, 0) = 1
    A(2, 1) = 2
    A(2, 2) = 3
    A(2, 3) = 4
    A(3, 0) = 5
    A(3, 1) = 6
    A(3, 2) = 7
    A(3, 3) = 8

End Sub

Private Sub T_Click()
    linia = T.Row
    coloana = T.Col
    nr_imagine = A(linia, coloana)
    Set T.CellPicture = LoadPicture(App.Path + "\poza" & nr_imagine & ".jpg")
End Sub