También, si lo que quieres es obtener la posición relativa a la pantalla, podrías usar la función GetCursorPos (de la API de Windows):
Código vb:
Ver originalPrivate Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
Código vb:
Ver originalDim Pos As POINTAPI
GetCursorPos Pos
MsgBox Pos.X
MsgBox Pos.Y