Multidimensional array

[Mc Brain]

Option Explicit
 
Private Type MyType
    y(4) As Integer
End Type
Dim x(4) As MyType
 
 
Private Sub Form_Load()
    Dim i As Integer, j As Integer
    
    For i = 0 To 4
        For j = 0 To 4
            x(i).y(j) = i * 5 + j
        Next j
    Next i
    
    For i = 0 To 4
        For j = 0 To 4
            Debug.Print x(i).y(j)
        Next j
    Next i
 
 
End Sub

There you have.... 25 different numbers