سلام من میخوام یه برنامه درست کنم که وقتی داریم ماوس رو روی فرم حرکت میدیم تو همون جایی که ماوس قرار داره یه دایره رسم کنه و تو هر مرحله دایره بزرگتر بشه این کدیه که من نوشتم ولی به دلیل نام معلومی کار نمیکنه
Private Sub Form_Load()
Dim i As Integer
i = 100
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
i = i + 1
Circle (X, Y), i, QBColor(5)
End Sub
کمک کنید لطفا