Private Mydate As DateDialog
Private SelectDate,SelectTime As String
Mydate.DateTicks=DateTime.Now
Private Ret As Int=Mydate.Show("Select Visit Date","Date","Ok","Cancel","",LoadBitmap(File.DirAssets,"mcalendar.png"))
If Ret=DialogResponse.POSITIVE Then
SelectDate=Mydate.Month & "/" & Mydate.DayOfMonth & "/" & Mydate.Year
Else
Return
End If