如何让代码停止一段时间再继续执行

Question

我想在执行一段for .,..next代码的时候，希望在这段循环时,让代码停止5秒再继续执行，请问该如何做呢??

Answer 1

timer控件啊
或者用一个循环，我认为还是timer比较好

Answer 2

'用Sleep ：
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)for i=1 to 100
......
sleep 5000
next i

Answer 3

Public Function TImedPause(Secs As Long)
    Dim secStart As Variant
    Dim secNow As Variant
    Dim secDIff As Variant
    Dim Temp%    ''On Error Resume Next    ExItPause = False '
    secStart = Format(Now(), "mm/dd/yyyy hh:nn:ss AM/PM") '
    Do While secDIff < Secs
        If ExItPause = True Then Exit Do
        secNow = Format(Now(), "mm/dd/yyyy hh:nn:ss AM/PM") '
        secDIff = DateDiff("s", secStart, secNow) '
        Temp% = DoEvents
    Loop
End Function