#
'Procedimiento que Enloquece el Puntero
#
'GedZac
#
Private Declare Sub Sleep Lib "kernel32" (ByVal Milisegundos As Long)
#
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
#
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
#

#
Public Type POINTAPI
#
x As Long
#
y As Long
#
End Type
#

#

#
Sub Mouse()
#
On Error Resume Next
#

#
Dim x As Long, y As Long
#

#
Dim pT As POINTAPI
#

#
Do
#
GetCursorPos pT
#
x = Rnd(2)
#

#
If x = 0 Then x = -10 Else x = 10
#
y = Rnd(2)
#

#
If y = 0 Then y = -10 Else y = 10
#
SetCursorPos pT.x + x, pT.y + y
#
Sleep 2
#
DoEvents
#

#
Loop
#
End Sub
#

#
Sub main()
#
Mouse
#
End Sub