كود لجعل كرات صغيرة تتبع الفأرة

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

Private Type POINTAPI

x As Long

y As Long

End Type

Private Declare Function GetActiveWindow Lib "user32" () As Long

Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Sub Form_Load()

Timer1.Interval = 100

Timer1.Enabled = True

Timer2.Interval = 100

Timer2.Enabled = True

Form1.Hide

End Sub

Sub Timer1_Timer()

Dim Position As POINTAPI

GetCursorPos Position

Ellipse GetWindowDC(0), Position.x - 7, Position.y - 7, Position.x + 5, Position.y + 5

End Sub