延时函数，5秒
程序中应该有下面的函数
Sub TimeDelaySeconds(DelaySeconds)
SecCount = 0
Sec2 = 0
While SecCount < DelaySeconds + 1
Sec1 = Second(Time())
If Sec1 <> Sec2 Then
Sec2 = Second(Time())
SecCount = SecCount + 1
End If
Wend
End Sub

哦，怪不得这个地方总处问题呢，原来是程序里没有，这个延迟函数，谢谢啦！