' Code frmSplash
Private Sub Timer1_Elapsed(ByVal sender As Object, _ 
  ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.[u]Elapsed 
 
  ' Jetzt Form schließen
  Timer1.Enabled = False 
  DialogResult = DialogResult.OK 
  Me.Hide() 
End Sub