vb实现隐藏Mouse

vb实现隐藏Mouse2008-03-08

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