Private Function TimeFormat(Millisek As Long) As String
Dim lStd As Long, lMin As Long, lSec As Long
 
lSec = Int(Millisek / 1000)
lMin = Int(lSec / 60)
lSec = lSec - (lMin * 60)
 
lStd = lMin / 60
lMin = lMin Mod 60
 
TimeFormat = Format$(lStd, "00") & ":" & Format$(lMin, "00") & ":" & Format$( _
  lSec, "00")
End Function

---------------------------------------
City4ALL- die erste, virtuelle 3D Stadt im Internet! Infos unter www.3DWelt.tk