Public dProgStart As Date
 
Private Sub Form_Load()
   dProgStart = CDate(CStr(Date) & " 00:00:00")
    Timer1.Interval = 1000
End Sub
 
Private Sub Timer1_Timer()
     Static lSekTimer As Long
     Dim n As Date
 
     lSekTimer = lSekTimer + 1
     n = DateAdd("s", lSekTimer, dProgStart)
 
     Label1.Caption = Format(n, "hh:mm:ss")
 
End Sub