vb實現隱藏Mouse

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