• Home
 · 
• Graphics
 · 
• generate dynamic lines using graphics line methods

generate dynamic lines using graphics line methods

generate dynamic lines using graphics line methods

API Declarations


'One command button named as command1 on ur form named as
'form1




Rate generate dynamic lines using graphics line methods

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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