'模块里面
Option Explicit
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Type POINTAPI
X As Long
Y As Long
End Type '获取鼠标坐标的声明
'窗体里面
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Dim mPos As POINTAPI
Private Sub Timer1_Timer()
GetCursorPos mPos
Label1.Caption = mPos.X
Label2.Caption = mPos.Y
End Sub