How to finish a userform on a timed basis

[Wil Moosa]

I have the following code for an opening screen (userform). I want this to disappear after 2 seconds. How can this be done?

The code:

Sub Show_introductiescherm()
Introductiescherm.Show

End Sub

 

[Richie(UK)]

Hi Wil,

Try something like this:

<pre>Private Sub UserForm_Activate()
Application.Wait (Now + TimeValue("0:00:02"))
Unload Me
End Sub</pre>
HTH

 

[Wil Moosa]

Returns the error message: "invalid use of the keyword Me".
This message was edited by Wil Moosa on 2002-11-09 07:54

 

[dk]

You need to make sure that Richie's code is in the code module of the userform, not a normal module. Just double click your form and paste in Richie's code.

 

[Wil Moosa]

Okay guys, now it works.

Thanks