得到mouse坐标，只要几行代码

控件：窗体上加两个label  ( label1 和 label2 )  ，再加一个timer1   

           增加一个模块

窗体代码：

1. Dim z As POINTAPI ' 声明变量
2. Private Sub Form_Load()
3. Timer1.Interval = 1    '设置时钟为1毫秒
4. End Sub
5. Private Sub Timer1_Timer()
6. GetCursorPos z ' 得到坐标
7. Label1.Caption = "x: " & z.x ' 得到X坐标
8. Label2.Caption = "y: " & z.y  ' 得到Y坐标
9. End Sub

模块代码：

1. Type POINTAPI ' Declare types
2. x As Long
3. y As Long
4. End Type
5. Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

运行就可以看到显示的XY坐标，而且即使失去焦点也可以显示坐标.