主题：狐表有没有延时命令

Dim LastTime As Date = Date.now
Do until (Date.Now - LastTime).TotalSeconds >= 2
    Application.doevents
Loop
msgbox("2秒后看到")

System.Threading.Thread.Sleep(1500) '延时1.5秒