by Muneera Matin (1 Submission)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 18th July 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
To draw circles
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
For i = 1 To 5000 Step 60
DrawCircle.Circle (DrawCircle.ScaleWidth / 2, DrawCircle.ScaleHeight / 2), i, RGB(255, 20, 255) * Rnd
Next
End Sub