by Patrick Lockefeer (XII) (1 Submission)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 24th August 2005
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Draw Magic Colored Circles with random size and color
API Declarations
'No controls needed only one Form
'Change the Backcolor property of your form to Black (for best result)
'Click several times on your form to draw the random color sized circles on your form
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
' Change the value 3000 to get another size of the circle (if you like)
Circle (X, Y), (Rnd * 3000), QBColor(Rnd * 15)
End Sub