Dim retdata, rettempo As Int
Dim Dd As DateDialog
Dd.ShowCalender = False
Dd.Year = DateTime.GetYear(DateTime.Now)
Dd.Month = DateTime.GetMonth(DateTime.Now)
Dd.DayOfMonth = DateTime.GetDayOfMonth(DateTime.Now)
retdata = Dd.Show("Simply choose the date and time you'd like Schedule", "Date Schedule", "Yes", "", "Cancel", Null)
'ToastMessageShow(retdata & " : " & Dd.DayOfMonth & "/" & Dd.Month & "/" & Dd.Year , False)
If retdata = DialogResponse.POSITIVE Then
Dim td As TimeDialog
td.Hour = DateTime.GetHour(DateTime.Now)
td.Minute = DateTime.GetMinute(DateTime.Now)
td.Is24Hours = True
rettempo = td.Show("Set the Required Time ", "Service Timer", "Yes", "", "Cancel", Null)
'ToastMessageShow(rettempo & " : " & td.Hour & ":" & td.Minute, False)
...............
End If
End If