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脚本主机方法弹出只需要整数作为延迟参数，source。