VB6 等待 做其他事 釋放資源 delay

請你使用timer元件,配合下列副函數,如"wait 5"就是等待5秒
Private Sub Wait(iSec As Long)
Dim iTimer As Long

    iTimer = Timer
    Do Until Timer - iTimer >= iSec
     DoEvents
    Loop
End Sub