Imports System
Public Class Program
Public Shared Sub Main()
Dim ms As Integer = 317520
Dim ts As TimeSpan = TimeSpan.FromMilliseconds(ms)
Dim result As String = String.Format("{0:D2}h:{1:D2}m:{2:D2}s:{3:D3}ms", ts.Hours, ts.Minutes, ts.Seconds, ts.Milliseconds)
Console.WriteLine(result)
End Sub
End Class
' run:
'
' 00h:05m:17s:520ms
'