[求助]：VBA程序

cmx_stone

如何在程序运行中间延时10秒钟

MicroStation迷

VB帮助中有。如下例
Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Press Yes to pause for 10 seconds", 4)) = vbYes Then
    PauseTime = 10    ' 设置暂停时间。
    Start = Timer    ' 设置开始暂停的时刻。
    Do While Timer < Start + PauseTime
        DoEvents    ' 将控制让给其他程序。
    Loop
    Finish = Timer    ' 设置结束时刻。
    TotalTime = Finish - Start    ' 计算总时间。
    MsgBox "Paused for " & TotalTime & " seconds"
Else
    End
End If

cmx_stone

不错，确实很有用，我这样以后
Dim PauseTime, Start, Finish, TotalTime
PauseTime = 10 ' 设置暂停时间。
Start = Timer ' 设置开始暂停的时刻。
Do While Timer < Start + PauseTime
DoEvents ' 将控制让给其他程序。
Loop
Finish = Timer ' 设置结束时刻。
TotalTime = Finish - Start ' 计算总时间。

就使我对一组dgn图形处理时，停顿10秒钟，进行鼠标操作。
而如果用sleep的话，连我鼠标操作也sleep了