如何做一个延时

Question

Dim OldT as SingleOldT=Timer
Do Until Timer-OldT>8'延时8秒
    DoEvents
Loop

Answer 1

用API函数Sleep,如
  sleep 8000

Answer 2

PauseTime = 5   ' 设置暂停时间。
   Start = Timer   
   Do While Timer < Start + PauseTime
      DoEvents         
   Loop
有什么疑问 留言CSDN消息给我
http://www.csdn.net/Message_Board/Send.asp?sendto=sunxl

Answer 3

PauseTime = 5   ' 设置暂停时间。
   Start = Timer   
   Do While Timer < Start + PauseTime
      DoEvents         
   Loop
msgbox "!"