SPONSORED LINKS
Using Message Boxes That Close Automatically
The function below shows a message box that disappears after the specified timeout (in seconds). The script execution then continues. Public Sub MsgBoxTimeout (Text, Title, TimeOut)
Set WshShell = CreateObject("WScript.Shell")
WshShell.Popup Text, TimeOut, Title
End Sub
If TimeOut is 0, it behaves just like a normal message box. If TimeOut is greater than 0, the dialog box disappears after the specified number of seconds.
when i used this code then it open the same message box again so please clear it why its happened.
When you are using this code.
Don't use Msgbox separately and MsgBoxTimeout separately. It should be used only once.
What ever you want in msgbox should be 'text' for MsgBoxTimeout.
E.g. MsgBoxTimeout variable name , ""(if title is blank), 2