arrays and lines

[MPrestonf12]

Can anyone try to find a problem in this code. I want to be able to fill the form up with line at set spaces apart. This code draws 1 line. If its less than 600 it draws none.

Dim I As Integer

For I = lngrid.UBound To 600

Load lngrid(I + 1)
lngrid(I + 1).Visible = True
lngrid(I + 1).X1 = 0
lngrid(I + 1).X2 = Screen.Width
lngrid(I + 1).Y1 = lngrid(0).Y1 + 150
lngrid(I + 1).Y2 = lngrid(0).Y2 + 150
Next I

[Yonatan]

Change this line:

For I = Ingrid.UBound To 600

To this line:

For I = Ingrid.LBound To Ingrid.UBound