如何取得鼠标指针位置

[ybfq96]

我刚学vb,老师们帮我看看这个：

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 lpPonit As POINTAPI
GetCursorPos lpPonit
print lpPoint.x
End Sub

运行后说缺少对象，实时错误424？点击调试后停在print lpPoint.x处，什么原因啊？谢谢！！

[无·法]

分给我吧

[ybfq96]

不好意思，解决了。

[舉杯邀明月]

[赵4老师]