Dim MyTimePop As TimeDialog
MyTimePop.TimeTicks = DateTime.Now
Dim MyDialog As Object = MyTimePop.ShowAsync("", "Pick The Time", "Ok", "Cancel", "", Null, True)
Wait For (MyDialog) Dialog_Result(ret As Int)
If ret = DialogResponse.POSITIVE Then
ToastMessageShow("Time selected = " & MyTimePop.Hour & ":" & MyTimePop.Minute,True)
End If