Form_Willkommen.Start.SetFocuss

Dim iGuard As Integer
 
Private Sub Form_Load()
  Form_Willkommen.TimerInterval = 10 '10ms
End Sub
 
Private Sub Form_Timer()
 
  If iGuard = 0 Then
    Form_Willkommen.TimerInterval = 30000
    Form_Willkommen.textfeld.SetFocus
    Form_Willkommen.textfeld.Value = testeDBConnection()
    Form_Willkommen.textfeld.Value = ImportData() & _
      Form_Willkommen.textfeld.Value
    iGuard = 1
  End If
 
End Sub