¿Cómo mover automáticamente el mouse a una ubicación específica y hacer clic en VB?

Al hacer clic en Comando1, el mouse llegará al punto (500, 500) y el código de acción del clic izquierdo será el siguiente:

Función de declaración privada SetCursorPos Lib "user32" ( ByVal x As Long, ByVal y As Long) As Long

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 Siempre)

Const privada MOUSEEVENTF_LEFTDOWN = amp;H2

Const privada MOUSEEVENTF_LEFTUP = amp;H4

Subcomando privado1_Click()

SetCursorPos 500, 500 'Esto se puede cambiar según su posición

mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 'Presione el mouse

mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 ' Rebote del mouse Inicio

Fin Sub