<font color=green>' Im Allgemein-Teil der form</font>
Option Explicit
Dim lngSekunden As Long
 
Private Sub Form_Load()
  <font color=green>' Timer-Intervall auf 30 Sekunden setzen</font>
  Timer1.Timer = 30000
  Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
  <font color=green>' "Sekunden-Variable" aktualisieren</font>
  lngSekunden = lngSekunden + 30
  If lngSekunden = 90 Then
    <font color=green>' Jetzt sind 1.5 Minuten vergangen ;-)</font>
    lngSekunden = 0
    CodeAusführen
  End If
End Sub</code>