Display a message box with a timeout value

Question

The question comes from code like this.

Set scriptshell = CreateObject(\"wscript.shell\")
    Const TIMEOUT_IN_SECS = 60
    Select Case scriptshell.popup(\"         


        

Answer 1

Easy

Call CreateObject("WScript.Shell").Popup("Timed message box", 1, "Title", vbOKOnly)