用vb让鼠标隐藏教程给个(要有具体代码0

来源：百度知道 编辑：UC知道 时间：2024/05/21 06:14:17
我要一个能让鼠标隐藏的代码!就是让鼠标在桌面上消失!要有教程的!

Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub Form_Load()
Dim rc%
rc% = ShowCursor(False) '隐藏鼠标
Sleep (5000) '停5秒
rc% = ShowCursor(True) '显示鼠标
End Sub