Così funziona:

codice:
Option Explicit

Private Type POINTAPI
    X As Long
    Y As Long
End Type

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

Dim pt As POINTAPI

Private Sub Timer1_Timer()
GetCursorPos pt
Label1.Caption = pt.X
Label2.Caption = pt.Y
End Sub