by Rahulkc (2 Submissions)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 13th June 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
LineStyles When Form is Loaded
hstep = Form1.ScaleHeight / 6
For i% = 1 To 6
Form1.DrawStyle = i% - 1
Form1.Line (0.1 * Form1.ScaleWidth, hstep * i%)-(0.9 * Form1.ScaleWidth, hstep * i%), QBColor(Rnd * 15)
Next
End Sub