'Listing 26.5 26LIST05.TXT - Przekroczenie zakresu indeksw.

Option Base 1


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

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

For X = 0 to 5 
  Form1.Print "ArrayVar(" & X & " ) = " & ArrayVar(X)
Next X
End Sub
