To draw circles
To draw circles
Rate To draw circles
(2(2 Vote))
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
To draw circles Comments
No comments yet — be the first to post one!
Post a Comment