老师们邦我看看这个：
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
        x As Long
        y As Long
End Type

Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer()
Dim lpPonit As POINTAPI
GetCursorPos lpPonit
Me.Caption = "X = " & lpPoint.x & " Y = " & lpPoint.y
End Sub
运行后说缺少对象？实时错误424？谢谢！！