-
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
-
Change this line:
For I = Ingrid.UBound To 600
To this line:
For I = Ingrid.LBound To Ingrid.UBound
