调用 WshShell 对象实现可以定时关闭的Msgbox窗口

在VBA中，如果直接使用msgbox函数弹出的提示窗口，必须手点击msgbox上的按钮才可以关闭。而调用 WshShell 对象，就可以实现自动关闭的窗口。

代码：

Sub AA()

    Dim WshShell As Object

    Set WshShell = CreateObject("Wscript.Shell")

    WshShell.Popup "1秒后关闭！", 1, "提示！", 16

End Sub

效果演示：