Close msgbox ?

Is it possible to close a msgbox that contains no buttons ?
e.g.
msg = "Please wait ..."
style = vbInformation
title = "something ... "
msgbox(msg, style, title)
..
..
.. 'some code

than I need to close the msgbox automatically

I know that another way is to insert a UserForm and show it and hide.

--

icq 25372592

It is not possible to have a MsgBox without buttons. Even a style of
vbInformation gives an OK button.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Buddy Lee" <buddy.lee@email.cz> wrote in message
news:%23LW83K07FHA.720@TK2MSFTNGP10.phx.gbl...
> Is it possible to close a msgbox that contains no buttons ?
> e.g.
> msg = "Please wait ..."
> style = vbInformation
> title = "something ... "
> msgbox(msg, style, title)
> .
> .
> . 'some code
>
> than I need to close the msgbox automatically
>
> I know that another way is to insert a UserForm and show it and hide.
>
> --
>
> icq 25372592
>
>

Buddy Lee wrote:
> Is it possible to close a msgbox that contains no buttons ?
> e.g.
> msg = "Please wait ..."
> style = vbInformation
> title = "something ... "
> msgbox(msg, style, title)
> .
> .
> . 'some code
>
> than I need to close the msgbox automatically
>
> I know that another way is to insert a UserForm and show it and hide.
>
> --
>
> icq 25372592

Hi, can't help you with the no button thing, but the code below will
automatically
close the msgbox after 3 seconds... hope this helps

ste

Sub closemsgbox()
With CreateObject("Wscript.Shell")
.Popup "This message will be displayed for 3 seconds" _
, 3, "Self Closing MsgBox", 64
End With
End Sub

thx

--

icq 25372592
"ste mac" <thunderman1@hotmail.com> píse v diskusním príspevku
news:1132662998.250879.121640@g47g2000cwa.googlegroups.com...
>
> Buddy Lee wrote:
>> Is it possible to close a msgbox that contains no buttons ?
>> e.g.
>> msg = "Please wait ..."
>> style = vbInformation
>> title = "something ... "
>> msgbox(msg, style, title)
>> .
>> .
>> . 'some code
>>
>> than I need to close the msgbox automatically
>>
>> I know that another way is to insert a UserForm and show it and hide.
>>
>> --
>>
>> icq 25372592
>
> Hi, can't help you with the no button thing, but the code below will
> automatically
> close the msgbox after 3 seconds... hope this helps
>
> ste
>
> Sub closemsgbox()
> With CreateObject("Wscript.Shell")
> .Popup "This message will be displayed for 3 seconds" _
> , 3, "Self Closing MsgBox", 64
> End With
> End Sub
>