چرا این کد کار نمیکنه؟

سلام من میخوام یه برنامه درست کنم که وقتی داریم ماوس رو روی فرم حرکت میدیم تو همون جایی که ماوس قرار داره یه دایره رسم کنه و تو هر مرحله دایره بزرگتر بشه این کدیه که من نوشتم ولی به دلیل نام معلومی کار نمیکنه

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

کمک کنید لطفا

اون متغیری که توی from_load تعریف کردی اصلا ربطی به Form_MouseMove نداره باید متغیر رو سراسری تعریف کنی یعنی تو قسمت بالای همه کدها

Dim i As Integer
Private Sub Form_Load()
i = 100
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
i = i + 1
Caption = i
Circle (X, Y), i, QBColor(5)
End Sub

چرا این کد کار نمیکنه؟

سوال برنامه نویسی دارید؟

خوش آمدید