延时代码

两种方法

（一）sleep

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

（二）

Sub Delay(s As Double)
Dim StartTimer As Variant
Dim OldTimer As Variant
Dim DelayYear As Long, DelayDay As Integer
StartTimer = Timer
Do
     DoEvents
     If Timer < OldTimer Then
         If DelayDay > 365 Then
             DelayYear = DelayYear + 1
             DelayDay = 0
         Else
             DelayDay = DelayDay + 1
         End If
     End If
     OldTimer = Timer
Loop Until (DelayYear * 365 + DelayDay) * 86400 + Timer - StartTimer > s
End Sub