当我需要适当延时时，有什么好的办法，让系统在延时时能够做别的事情！

Question

最简单的代码:for i=1 to 10000 
         doevents
next

Answer 1

不知道延时的要求是多少，可以利用Timer控件：
Private Sub Command1_Click()
    Timer1.Enabled = True
    Command1.Enabled = False
End SubPrivate Sub Form_Load()
    Timer1.Interval = 30000
    Timer1.Enabled = False
End SubPrivate Sub Timer1_Timer()
    Command1.Enabled = True
    Timer1.Enabled = False
End Sub
在上面的代码中，设定延时为30秒，当延时结束后关闭计时，将Command1设定为True，在
计时阶段可以做其它工作，如果你对精度要求高的话，文章：
http://www.applevb.com/art/timing.htm
介绍了QueryPerformanceFrequency 计时方式：
http://www.applevb.com/sourcecode/stopwatch.zip
介绍了多媒体计时方式

Answer 2

Sub sleep(a As Long)'a 为秒
Dim t As Date
t = DateAdd("s", a, Now)
Do While Now < t
  DoEvents
LoopEnd Sub 
用它试试