'Listing 26.9  26LIST09.TXT --- Uycie funkcji Array.

Option Base 1

Private Sub Command1_Click()
Dim ArrayVar As Variant

ArrayVar = Array(5, 10, 15, 20, 25)

For X = 1 to 5
  Form1.Print "ArrayVar(" & X & " ) = " & ArrayVar(X)
Next X

End Sub
