试试延时一下，再删除。
Dim sdt As Date = Date.NowWhile Date.Now < sdt.AddSeconds(10) Application.DoEventsEnd While
msgbox("10秒后执行")
加好友 
发短信
Post By：2022/2/17 15:12:00 [显示全部帖子]
