Private Sub Timer1_Timer()
  Static lSekTimer As Long
  Dim nHours As Long
  Dim nMins As Long
 
  ' sekundenweise hochzählen
  lSekTimer = lSekTimer + 1
 
  ' Stunden:
  nHours = Int(lSekTimer / 3600)
  lSekTimer = lSekTimer - (nHours * 3600)
 
  ' Minuten
  nMins = Int(lSekTimer / 60)
  lSekTimer = lSekTimer - (nMins * 60)
 
  ' auf dem Label aktuell die vergangene Zeit seit Programmstart anzeigen
  Label1.Caption = Format$(nHours, "00") & ":" & _
    Format$(nMins, "00") & ":" & Format$(lSekTimer, "00")
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de