by Keyur D Mistry (1 Submission)
Category: Graphics
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Thu 25th April 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Draw MultiColor Circle with Mouse Move Event...
'Visit at : www.keyurmistry.50megs.com
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.FillStyle = 0
Me.FillColor = RGB(X / 20, Y / 10, X + Y / 2)
If Button = 1 Then
Circle (X, Y), 150, vbRed
End If
End Sub