指定時間で消える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