指定時間で消えるMsgBoxを使うには

WScript.Shell.PopUpメソッドを呼んでみる。
なんか上のid:akiramei殿の記事に微妙に類似してます。

REM WScript.Shell.PopUp.vbs
option Explicit
Dim intRet,objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")
intRet = objWshShell.Popup("二秒で消えます。" , 2, "時間で消えるMsgbox風", vbOKCancel)
If intRet = vbOK Then
msgbox("二秒以内に[OK]が選ばれたっぽい" )
End If
If intRet = vbCancel Then
msgbox("二秒以内に[Cancel]が選ばれたっぽい" )
End If