MsgBox with timeout

P

pgarcia

I have the following code but I am missing the timeout function, help!

MsgBox "The update is now complete.", vbInformation, "NAME"

I just want to have it up for around 5-10 sec.

Thanks
 
J

Jim Thomlinson

Give this a whirl... Note Select Tools -> References -> Windows Script Host
Object Model

'requires reference to "Windows Script Host Object Model"
Public Sub MessageTest()
Dim SH As IWshRuntimeLibrary.WshShell
Dim Res As Long

Set SH = New IWshRuntimeLibrary.WshShell
Res = SH.Popup(Text:="Click Me", secondstowait:=2, _
Title:="Hello, World", Type:=vbOKOnly)

End Sub
 
Top