Create a form
Add the following code to the form code module for the Formr1
_Click event:
Program code:
Private Sub Form_MouseMove(Button As Integer, Shift As
Integer, X As Single, Y As Single)
Circle (X, Y),
300 + 200 * Rnd, QBColor(Rnd * 15)
End Sub
...........................................................................................................v>
by Md. Sayemon
No comments:
Post a Comment