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

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

Hide a Spleash Screen

   <source lang="vb">

Private Sub UserForm_Activate()

   Application.OnTime Now + TimeValue("00:00:05"), "KillTheForm"

End Sub

Private Sub KillTheForm()

   Unload UserForm1

End Sub

</source>