用sleep试试，不太精确：Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Sub Test()Dim tt = TimerSleep 500MsgBox Timer - tEnd Sub
