Private Sub DateField_TextChanged (Old As String, New As String)
Dim ticks As Long = GetCurrentDateFromTextField (New)
If ticks > 0 Then
setDate(ticks)
If dateField.IsInitialized = True Then dateField.SetColorAndBorder(dateField.Color, 2dip, 0xFFA1A1A1, 0)
CallSub2(CallBack, EventName & "_DateChanged", ticks)
Else
If dateField.IsInitialized = True Then dateField.SetColorAndBorder(dateField.Color, 2dip, xui.Color_Red, 0)
End If
End Sub