CLOSE MESSAGE BOX PROGRAMMATICALLY

[donstock]

Can a message box be closed programmatically? without any interaction with
the keyboard or mouse? I'm trying to display a message box for a given
amount of time then have it automatically close.

 

[Rockee052]

Found this in google, hope it helps

If you have the Windows Scripting Host Obj model installed (WSHOM.OCX)
and
I believe it's part of Windows 98 among other things, you can ru
this:

Sub SelfClosingMsgBox()
CreateObject("WScript.Shell").Popup "Hello", 2, "This closes itsel
in 2 seconds"
End Sub

By, Jim Rech


Rocke

 

[Dave Peterson]

Jim Rech posted this solution:

Sub SelfClosingMsgBox()
CreateObject("WScript.Shell").Popup "Hello", 2, _
"This closes itself in 2 seconds"
End Sub

 

[donstock]

Thanks, that works very well. I've also created a userform to look like a
message box, and use the OnTime method to unload the form after a given
interval.

D.S.

 

[Ivan F Moala]

Have a look here with what you can do with Scripting & API's

http://www.xcelfiles.com/Excel03.html

 

[Tom Ogilvy]

Ivan,
the link seems to be missing to download the workbook with the scripting
example. Just a heads up.

 

[Ivan F Moala]

Oh Jezz !! sorry ...... thanks Tom
Appreciate the heads up.

Linked up now.

 

[donstock]

Thanks Ivan & Tom,
I'll have to study on this a while.

D.S.