按键精灵实现自动退出的MsgBox消息框

要实现自动倒计时退出的消息框，代码如下：

Set wsh = CreateObject("WScript.Shell")
wsh.popup "设置完毕，3秒后自动退出！",3,"完毕！",0
set wsh=nothing