VBA MsgBox在不到一秒的时间内关闭

Question

我有一个脚本，在给定的秒数后自动关闭MsgBox：

Sub Test1()
Dim AckTime As Integer, InfoBox As Object
Set InfoBox = CreateObject("WScript.Shell")
AckTime = 3
Select Case InfoBox.Popup("Click OK or do nothing within 3 seconds.", _
AckTime, "This is your Message Box", 0)
Case 1, -1
Exit Sub
End Select
End Sub

问题是，我希望盒子在不到一秒的时间内关闭，也许是半秒钟，但是将它改为.5，例如，它什么都不做。事实上，我认为它根本不会结束。

Answer 1

很抱歉，但Windows脚本宿主方法Popup只使用整数作为延迟参数source。