‘类似msgbox
‘定时停留弹出框函数
Sub Print(text,timeout,title)
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.Popup text,timeout,title
Set WshShell = nothing
End Sub
用法：
Print "弹窗显示的内容",10,"对话框在10秒内自动关闭！"
VBS定时关闭的弹窗
原文：http://www.cnblogs.com/futrueface/p/4123411.html
