timeperiodlbl.text = (ConvertTicksToTimeString(ticks))
Sub ConvertTicksToTimeString(t As Long) As String
Dim days, hours, minutes, seconds As Int
days = t / DateTime.TicksPerDay
hours = t / DateTime.TicksPerHour
minutes = (t Mod DateTime.TicksPerHour) / DateTime.TicksPerMinute
seconds = (t Mod DateTime.TicksPerMinute) / DateTime.TicksPerSecond
Return NumberFormat(days, 2, 0) & "." _
& NumberFormat(hours, 2, 0) & ":" & NumberFormat(minutes, 2, 0) & ":" & NumberFormat(seconds, 2, 0) & ""
End Sub