Type POINTAPI
x As Long
y As Long
End Type
Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" _
(lpPoint As POINTAPI) As Long
'隱藏Mouse
Public Sub toHideCursor()
ShowCursor 0
End Sub
'顯示Mouse
Public Sub toShowCursor()
ShowCursor 1
End Sub
