Option Explicit
'宣告API
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
'结构声明
Public Type POINTAPI
X As Long
Y As Long
End Type