كود رسم دوائر ملونة باستخدام الفأرة

ضع الكود في الفورم

Private Sub Command1_Click()

Form1.Cls

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim i As Integer

i = Rnd * 15

If Button = 1 Then

Me.Circle (X, Y), 200, QBColor(i)

End If

End Sub