Shell Popup不会自动关闭

Question

在我切换到Office 2016之前，这已经不复存在了。

有没有人有另一种方法可以制作一个在x秒后关闭的简单弹出框？我不需要OK按钮或任何用户交互，只需要简单的简单弹出消息。

Sub MessageBoxTimer()
Dim AckTime As Integer, InfoBox As Object
Set InfoBox = CreateObject("WScript.Shell")

AckTime = 3
Select Case InfoBox.Popup("Click OK (this window closes automatically after 
3 seconds).", _
AckTime, "This is your Message Box", 0)
Case 1, -1
    Exit Sub
End Select
End Sub