vba - 1秒以内に閉じる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

問題は、ボックスを 1 秒未満、おそらく 0.5 秒で閉じたいのですが、.5たとえば に変更しても何も起こりません。実際、私はそれがまったく閉じていないと思います。

Answer 1

申し訳ありませんが、Windows スクリプト ホスト メソッドの Popup は、遅延パラメーターsourceとして整数のみを受け取ります。