Dim sdt As Date = Date.NowWhile Date.Now < sdt.AddSeconds(5) Application.DoEventsEnd While
msgbox("5秒后执行")