Sub Activity_Resume
Dim Time1, Time2, TimeFormat As String
Dim TimeTicks As Long
Time1 = "10:15"
TimeFormat = DateTime.TimeFormat
DateTime.TimeFormat = "HH:mm"
TimeTicks = DateTime.TimeParse(Time1)
DateTime.TimeFormat = TimeFormat
Time2 = DateTime.Time(TimeTicks)
Label1.Text = Time1
Label2.Text = Time2
Log(Time1)
Log(Time2)
End Sub