感觉使用效果比时间控件爽些哈！！！ Private Declare Function timeGetTime Lib "winmm.dll" () As Long Function Delay(Dtime As Integer) As Long Savetime = timeGetTime While timeGetTime < Savetime + Dtime DoEvents Wend End Function