Sub Btn_Date_Click
'only CANCEL needed
Wait For (Dialog.ShowTemplate(DateTemplate, "", "", "CANCEL")) Complete (Result As Int)
If Result = xui.DialogResponse_Positive Then
sDate = DateTime.GetYear(DateTemplate.Date) & "-" & _
NumberFormat(DateTime.GetMonth(DateTemplate.Date), 2, 0) & "-" & _
NumberFormat(DateTime.GetDayOfMonth(DateTemplate.Date), 2, 0)
Btn_Date.xLBL.Text = sDate
End If
End Sub