Option Explicit
Dim nMin As Long
 
Private Sub Form_Load()
  ' Timer initialisieren
  Timer1.Interval = 60000
  nMin = 0
 
  ProgressBar1.Max = 120
End Sub
 
Private Sub Timer1_Timer()
  nMin = nMin + 1
  ProgressBar1.Value = nMin
  If nMin = 120 Then
    ' Jetzt sind zwei Stunden vorbei!
    ...
 
    nMin = 0
    ProgressBar1.Value = 0
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de