Question

请问如何在VB中追加延时语句？

现有正常的程序，我想在正常执行后，延时3秒钟弹出MSGBOX提示窗口。
要对现有程序做怎么的修改。

Answer 1

Private Sub waittime(delay As Single)
Dim starttime As Single
starttime = Timer
Do Until (Timer - starttime) > delay
DoEvents
Loop
End Sub
不会出现假死的情况 延时时间可以精确到0.01秒

追问

请问原有程序用什么语句连接到这里。（初学请勿见笑）