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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024