Code: Select all
Dim Wshell
Set Wshell = CreateObject("wscript.shell")
Wshell.Popup "Message", 5, "Title"
Set Wshell = Nothing
Code: Select all
Dim Wshell
Set Wshell = CreateObject("wscript.shell")
Wshell.Popup "Message", 5, "Title"
Set Wshell = Nothing