Dim Dd As DateDialog
Dd.DateTicks = codigo.ticks_date_from_mysql(registro_time_in)
Dd.ShowCalendar = True
DateTime.DateFormat = "yyyy-MM-dd"
Dim sfa As Object = Dd.ShowASYNC("", t.t("Seleccione Fecha inicial"), t.t("ACEPTAR"), t.t("CANCELAR"), "", Null, True)
Wait For (sfa) Dialog_Result(RESULT As Int)
If RESULT = DialogResponse.POSITIVE Then