Use the WshShell object popup method. It has a timeout parameter.
intTimeout = 10 'Number of seconds to wait
strMessage = "This is my message box!"
strTitle = "Hello, world!"
Set WshShell = CreateObject("WScript.Shell")
intResult = WshShell.Popup(strMessage, intTimeout, strTitle)
For more information, see my article Mastering MessageBox on ASP Free.
source
share