'Listing 26.3 -- 26LIST03.TXT --- Dodanie deklaracji Option Base.

'umie t deklaracj w module kodu projektu
Option Base 1

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

For X = 1 to 5 do
  ArrayVar(X) = X
Next X

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

End Sub
