Private Declare Function SetCursorPos Lib "user32.dll" (ByVal x As Long, ByVal y As Long) As Long
Dim a As Long, b As Long, c As Long, d As Long
Private Sub Timer2_Timer()
Dim x As Long
a = a + c * 10
b = b + d * 10
x = SetCursorPos(a, b)
If a >= 1024 Then
c = -1
End If
If a <= 0 Then
c = 1
End If
If b >= 800 Then
d = -1
End If
If b <= 0 Then
d = 1
End If
End Sub
Private sub command1_click()
timer2.enabled = True
end sub