Private Declare Function GetCursorPos Lib "user32" (lpPoint As PointAPI) As Long
Private Type PointAPI X As Long Y As LongEnd Type
使用:
Dim ScreenPoint As PointAPIGetCursorPos ScreenPoint
网络上找的。狐表里面不会用 求助各位大神