Private Sub Timer1_Timer()
  Timer1.Enabled = False
End Sub

Sub Main()
  Dim fLogin As New frmLogin
  fLogin.Show vbModal
  If Not fLogin.OK Then
    <font color=green>'Anmeldung fehlgeschlagen. Anwendung wird beendet.</font>
    End
  End If
  Unload fLogin
 
  frmSplash.Show
  frmSplash.Refresh
  Set fMainForm = New frmMain
  <font color=red>Do Until frmSplash.Timer1.Enabled
    DoEvents
  Loop</font>
  Unload frmSplash
 
  fMainForm.Show
End Sub