Show Splash Screen (for timed period) on Startup: Return to List

' There must be a Timer control on the form.
' Also, the code below should occur at beginning of Startup Form -- not the Splash form, itself.

  Private Sub Form_Load()' This is the primary which will be visible automatically
  
frmSplash.Visible = True' This splash form has absolutely no code beneath it.
  
frmSplash.Refresh' We never use the SHOW method -- we just set it visible & refresh
  
Dim curTime As Single' Notes the current time
  
curTime = Timer
  
Do Until Timer - curTime >= 2' Displays the splash form for 2 seconds
  
Loop
  
frmSplash.Visible = False' We set the Splash form to invisible
  
frmSplash.Refresh' We refresh to hide it
  
End Sub