by Abdus Salam Naeem (3 Submissions)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 26th January 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
generate dynamic lines using graphics line methods
API Declarations
'One command button named as command1 on ur form named as
'form1
If Command1.Caption = "Start" Then
Command1.Caption = "Exit"
For i = 1 To 3
lines
DoEvents
Next i
Else
End
End If
End Sub
Sub lines()
For i = 1 To 8000
DrawWidth = 2
DrawStyle = vbInsideSolid
Line (0, i)-(Rnd * 11000, 8000), RGB(Rnd * 150, Rnd * 155, Rnd * 255)
DoEvents
Next i
End Sub