Òþ²Ø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