Cita:
Iniciado por sam90 
Yo solia usar esto para mover de forma loca al mouse!! Espero que te sirva.
Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim pos As POINTAPI
a = GetCursorPos(pos)
Randomize
x = pos.x
y = pos.y
x = x + (Int(Rnd * 10) - 5)
y = y + (Int(Rnd * 10) - 5)
a = SetCursorPos(x, y)
Me pone que el tipo POINTAPI no esta definido, todo lo que intento con POINTAPI me sale asi, alguien me podria explicar???