Hola
No se si es a esto a lo que te refieres.
Código:
Dim mx As Single
Dim my As Single
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 113 Then
text1.text = mx
text2.text = my
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
mx = X
my = Y
End Sub
Lo que hago es capturar la posición del ratón sobre el formulario y pasarlo a dos variables, luego al pulsar F2 (keycode 113) que lo muestre en los textbox.
Eso si, todo esto funciona dentro del formulario del programa.
--Saludos--