如何让程序延等待迟数秒后再运行
想让程序延等待迟数秒后再运行下一步，该怎么写?我不想用Timer

[解决办法]
Sleep
[解决办法]
'延时
Public Function Delay(ByVal t1 As Integer)
Dim tt As Single, ttt As Single
tt = Timer
ttt = t1 / 1000
While Timer - tt < ttt
Sleep 1
DoEvents
Wend
End Function