VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 隐藏鼠标
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:9301, 日期:2001-04-06
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Private Sub Command1_Click()
    ShowCursor 0
    `Wait 5 seconds
    t = Timer
    Do: DoEvents: Loop Until Timer > t + 5
    `Show the cursor
    ShowCursor 1
End Sub