\'пример работы с массивамиPrivate Type tData    lNum As Long    sVal As StringEnd TypePrivate aData() As tDataPrivate aDtCount As Long \'число cтрок в массиве\'массив с пользовательским типом данных\'в ряде случаев гораздо удобнее n-мерных массивовPrivate Sub Test1()    Dim i As Integer    \'динамическое изменение размера массива    aDtCount = 255    ReDim aData(0 To aDtCount)    For i = 0 To aDtCount        aData(i).lNum = i        aData(i).sVal = Chr(i)    NextEnd Sub\'двумерный массивPrivate Sub Test2()    Dim i As Byte    Dim j As Byte    \'получаем двумерный числовой массив - 5 строк по 3 колонки    Dim a1(1 To 5, 1 To 3) As Long    For i = 1 To 5        For j = 1 To 3            a1(i, j) = i + j        Next    NextEnd SubPrivate Sub Form_Load()    Call Test1    Call Test2End Sub