'Listing 26.1 26LIST01.TXT - Prosty przykad uycia tablicy.

Private Sub Command1_Click()
Dim ArrayVar(5) As Integer

For X = 0 to 4 
  ArrayVar(X) = X + 1
Next X

For X = 0 to 4 
  Form1.Print "ArrayVar(" & X & " ) = " & ArrayVar(X)
Next X

End Sub

