Private Sub Timer1_Timer()
Dim dDate1 As Date
Dim StundenTimer As Integer
Dim zeit$
 
'Stundentimer rückwärts zählend
    StundenTimer = StundenTimer + 1
    If StundenTimer > 3600 Then
    StundenTimer = 0
    'Auszuführender Programmteil
    End If
 
    Label1.Caption = "[ Timer: " & Format(DateAdd("s", 3600 - StundenTimer, _
      dDate1), "hh:mm:ss") & " ]"
End Sub