VBA/Excel/Access/Word/Forms/Spleash Screen

Материал из VB Эксперт
Перейти к: навигация, поиск

Hide a Spleash Screen

 
Private Sub UserForm_Activate()
    Application.OnTime Now + TimeValue("00:00:05"), "KillTheForm"
End Sub

Private Sub KillTheForm()
    Unload UserForm1
End Sub
Источник — «http://vbex.ru/index.php?title=VBA/Excel/Access/Word/Forms/Spleash_Screen&oldid=1923»