エクセルのVBAでユーザーフォームを4秒ぐらいで閉じるようにするには

お世話になります

マクロボタンを押すとウエルカムフォームが先に立ち上がり
ウエルカムフォームを4秒ぐらい表示させてからメインのユーザフォームを表示させたいのです。（4秒後はウエルカムフォームは自動で閉じさせたい）


ウエルカムフォームは一様FLASHを設置する予定です
わかる方お願いします

No.1 回答者： fujillin 回答日時： 2008/09/05 22:28

こういうことでしょか？

　http://www.accessclub.jp/bbs2/0032/beginter10591 …

一旦、開放する必要があるなら　OnTime メソッドかな？
　expression.OnTime(EarliestTime, Procedure, LatestTime, Schedule)

No.2 ベストアンサー 回答者： mitarashi 回答日時： 2008/09/06 09:14

これでいかが。

Private Sub UserForm_Activate()
Application.Wait (Now + TimeValue("00:00:04"))
Unload Me
End Sub