捕捉位置:
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Type POINTAPI
x As Long
Y As Long
End Type
'Type RECT
' Left As Long
' Top As Long
' Right As Long
' Bottom As Long
'End Type
' Dim rc As RECT
Dim po As POINTAPI
GetCursorPos po
' rc.Bottom = po.x
' rc.Left = po.Y