'Formaitiert eine Sekundenzahl in "hh:mm:ss"
  Private Function FormatTime(ByVal Seconds As Integer) As String
 
    Dim i32Hour As Integer = Seconds \ 3600
    Dim i32Min As Integer = (Seconds \ 60) - i32Hour * 60
    Dim i32Sec As Integer = Seconds - i32Hour * 3600 - i32Min * 60
 
    'Formatiert die berechneten Werte
    Return i32Hour.ToString.PadLeft(2, "0") & ":" & i32Min.ToString.PadLeft(2, _
      "0") & ":" & i32Sec.ToString.PadLeft(2, "0")
 
  End Function

'Formaitiert eine Sekundenzahl in "hh:mm:ss"
Private Function FormatTime(Seconds As Long) As String
  Dim lngHour As Long
  Dim lngMin As Long
  Dim lngSec As Long
 
  lngHour = Seconds \ 3600
  lngMin = (Seconds \ 60) - lngHour * 60
  lngSec = Seconds - lngHour * 3600 - lngMin * 60
 
  'Formatiert die berechneten Werte
  FormatTime = Format(lngHour, "00") & ":" & Format(lngMin, "00") & ":" & _
    Format(lngSec, "00")
 
End Function