一個非常好用的VB 延時函數

Private Declare Function timeGetTime Lib "winmm.dll" () As Long '該聲明得到系統開機到現在的時間(單位：毫秒)

Public Function Sleep2(T As Long)
    Dim Savetime As Long
    Savetime = timeGetTime '記下開始時的時間
    While timeGetTime < Savetime + T '循環等待
        DoEvents '轉讓控制權
    Wend
End Function



'在要延時的地方調用
Sleep2(15000)  '延時15秒