Option Explicit
Private Declare Function GetCursorPos Lib \"user32\" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
    x As Long
    y As Long
End Type
Private Sub Timer1_Timer()
    Dim p As POINTAPI
    GetCursorPos p
    Form1.Caption = p.x & \" \" & p.y
End Sub

我看到有的书上面写得是
用getcapture 捕获鼠标到窗口
在用 mousemove事件得到鼠标坐标
在用clinttoscreen把坐标转换成屏幕坐标
我看方法也很可以
可是程序作不出来
可能是有错误吧1
这种方法和上述的有什么区别啊?