draws random circle

by Mohan K Gupta (2 Submissions)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 1^st October 2002
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

draws random circle

Rate draws random circle



End
End Sub

Private Sub Form_Load()
Form1.WindowState = 2

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
End
End If

End Sub

Private Sub Timer1_Timer()
For i = 1 To 4000 Step 2
 'Dim A, B, C As Integer
A = Rnd(200)
B = Rnd(200)
C = Rnd(200)
Form1.Circle (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2), i, RGB(A * 255, B * 255, C * 255)
Next i

End Sub

Download this snippet Add to My Saved Code

draws random circle Comments

No comments have been posted about draws random circle. Why not be the first to post a comment about draws random circle.

draws random circle

draws random circle Comments

Post your comment

Difficulty