参考代码
Dim sdt As Date = Date.NowWhile Date.Now < sdt.AddSeconds(10) Application.DoEventsEnd While
msgbox("10秒后执行")
加好友 
发短信
Post By：2017/1/22 13:15:00 [显示全部帖子]
