'Listing 26.4  26LIST04.TXT -- Specyfikacja zakresu indeksw


Private Sub Command1_Click()
Dim ArrayVar(200 To 205) As Integer

For X = 200 to 205 
  ArrayVar(X) = X
Next X

For X = 200 to 205 
  Form1.Print "ArrayVar(" & X & " ) = " & ArrayVar(X)
Next X

End Sub
