Private Sub Form_Load()
  ' Timer initialisieren: Intervall = 60 Sekunden
  Timer1.Interval = 60000
  Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
  Dim bStarted As Boolean
 
  If Time$ = "18:00" Then
    bStarted = True
    ' Hier noch den Prozedur-Aufruf einsetzen
  ...
  Else
    bStarted = False
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de