DateTime.DateFormat="yyyy-mm-dd"
DateTime.timeformat = "hh:mm"
Dim MyDate As String = "2022-04-18"
Dim Mytime As String = "10:00"
Dim MyTicks As Long = DateTime.DateTimeParse(MyDate, Mytime)
Log(DateTime.Date(MyTicks)) 'shows 2022-04-18 10:00 so ticks are correct
RaceDate.Ticks = MyTicks'ThisRace.StartDate) 'racedate is the DatePicker'