Sub TestSplashScreen()
    UserForm1.Show
End Sub

Private Sub KillTheForm()
    Unload UserForm1
End Sub