'Declare arrays

Dim myArray(0 To 9) As Integer
Dim myStrArray(0 To 2) As String
Dim my2DArray(0 To 2, 0 To 2) As Double



Private Sub Form_Load()
    'define arrays

    myStrArray(0) = "Apron"
    myStrArray(1) = "Tutorials"

    For i = 0 To 9
        myArray(i) = i
    Next i
    
    
    Dim count As Integer
    
    For i = 0 To 2
        For j = 0 To 2
            count = count + 1
            my2DArray(i, j) = 1.1 * count
        Next j
    Next i
    
End Sub


Private Sub Command1_Click()
    'Display arrays

    Text1.Text = myStrArray(0) & " " & myStrArray(1)

    For i = 0 To 9
        Text2.Text = Text2.Text & myArray(i) & " "
    Next i
    
    For i = 0 To 2
        For j = 0 To 2
            Text3.Text = Text3.Text & my2DArray(i, j) & " "
        Next j
    Next i

End Sub