Sub Activity_Click
Dim td As TimeDialog
td.TimeTicks = DateTime.Now
td.Is24Hours = True
Dim sf As Object = td.ShowAsync("", "Select time", "Yes", "", "Cancel", Null, False)
Wait For (sf) Dialog_Result(Result As Int)
If Result = DialogResponse.POSITIVE Then
Log(DateTime.Time(td.TimeTicks))
End If
End Sub