隐藏Mouse

原始来源:  cww

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