codigo para ejecutar comandos del teclado.

[dsio392i3nkmw9d]

puedes usar el mismo codigo para el raton
1 boton izquierdo
2 boton dercho

hacer doble click
Call keybd_event(1, 0, 0, 0) 'aprieta
Call keybd_event(1, 0, KEYEVENTF_KEYUP, 0)'soltar
Call keybd_event(1, 0, 0, 0) 'aprieta
Call keybd_event(1, 0, KEYEVENTF_KEYUP, 0)'soltar


en visual puedes hacer tu programa de cordenadas solo pega esto y agrega un timer
Option Explicit

Private Type rata
X As Long
Y As Long
End Type


Private Declare Function GetCursorPos Lib "user32" (lpPoint As rata) As Long

Dim Mouse As rata

Private Sub Form_Load()
Timer1.Interval = 100
Me.FontSize = 30
End Sub

Private Sub Timer1_Timer()
Call GetCursorPos(Mouse)
Me.Cls
Me.Print "Codenadas"
Me.Print "X:" + Str$(Mouse.X) + vbCrLf + "Y:" + Str$(Mouse.Y)
End Sub

no se si eso querias,de igual manera avisa perdon por tardar tanto