Private Type POINT_TYPE
    X As Long
    Y As Long
End Type
Private Declare Function GetCursorPos Lib "user32.dll" _
    (xyPoint As POINT_TYPE) As Long

Private Sub GetMyCursorPos()
    Dim cp As POINT_TYPE
    Dim rval As Long
    rval = GetCursorPos(curPos)' Get cursor location
    Label1.Caption = "The mouse is at X=" & curPos.X & " Y=" & curPos.Y
End Sub