Sub GetTime(hh As Int, mm As Int)
td.Is24Hours=True
td.Hour=hh
td.Minute=mm
If td.Show("Select time", "", "Ok", "Cancel", "", Null) = DialogResponse.POSITIVE Then
TimeSet =(td.Hour-1) * DateTime.TicksPerHour + td.Minute * DateTime.TicksPerMinute
Log(td.Hour)
Log(DateTime.Time(TimeSet))
End If
End Sub