Mover el mouse a determinadas coordenadas

Pablo
27 de Noviembre del 2003
Lo q quiero es q el mouse se mueva a determinadas coordenadas de la pantalla, mejor dicho a las q yo le especifique en un textbox.
El código q utilizo es el siguiente:

'COMIENZA EL CODIGO
Option Explicit
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Const MOUSEEVENTF_MIDDLEDOWN = &H20
Private Const MOUSEEVENTF_MIDDLEUP = &H40
Private Const MOUSEEVENTF_MOVE = &H1
Private Const MOUSEEVENTF_ABSOLUTE = &H8000
Private Const MOUSEEVENTF_RIGHTDOWN = &H8
Private Const MOUSEEVENTF_RIGHTUP = &H10
Private Sub Timer1_Timer()
mouse_event MOUSEEVENTF_MOVE, 542, 157, 0, 0
End Sub
'TERMINA EL CÓDIGO

El problema es q siempre me lo mueve exactamente al mismo lugar de la pantalla sin importar las coordenadas q yo le especifique.
Siempre me lo mueve a la esquina inferior derecha.
Alguien sabe donde esta el error??????

Juan
27 de Noviembre del 2003
Prueba con la funcion SetCursorPos, es más sencilla.
Un ejemplo:

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Private Sub Form_Click()
SetCursorPos 100, 100
End Sub


Al hacer click en form1 el mouse se coloca en las coordenadas
(100,100) de la pantalla.