'***************************************************
'Timer 2 - export-intervall-bestimmung und anzeige
'***************************************************
Private Sub Timer2_Timer()
Static Minuten, Anzahl As Long
Dim ende As Label
Dim arr() As String
 
If expint.Text > "" And zahlenok(expint.Text, "0123456789") Then
  Anzahl = expint.Text ' Neues Intervall
  Timer2.interval = 60000 ' 60 Sekunden
  Minuten = (Minuten + 1) Mod Anzahl
  txt_exp.Text = Anzahl - Minuten
 
  If Minuten > 0 Then Exit Sub
 
  ' Hier folgt der eigentliche Code
  ' für das Timer-Ereignis:
 
'####### Hier ist der Aufruf der den Verzug bewirkt
    poken
'#######################################
 
    Timer1_Timer
 
    If (Replace(lbl_error.Caption, vbCrLf, "") = "None") Then
        GoTo ende
    Else
        Timer1_Timer
        Timer3.Enabled = True
        Timer3_Timer
    End If
 
End If
ende:
End Sub