参考
Dim sdt As Date = Date.NowWhile Date.Now < sdt.AddSeconds(10) Application.DoEventsEnd While
msgbox("10秒后执行")
加好友 
发短信
Post By：2019/1/21 14:25:00 [只看该作者]
