' Millisekunden nach hh:mm:ss umrechnen
Private Function FormatTime(ByVal lMSec As Long) As String
  Dim iHour As Integer
  Dim iMin As Integer
  Dim iSec As Integer
 
  iSec = Int(lMSec / 1000)
  iMin = Int(iSec / 60)
  iSec = iSec - (iMin * 60)
  iHour = Int(iMin / 60)
  iMin = iMin - (iHour * 60)
 
  FormatTime = Format$(iHour, "00") & ":" & _
    Format$(iMin, "00") & ":" & Format$(iSec, "00")
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de