Private Sub DatePicker1_FocusChanged (HasFocus As Boolean)
If HasFocus = False Then
Dim s As String = DatePicker1.As(JavaObject).RunMethodJO("getEditor", Null).RunMethod("getText", Null)
Try
Dim date As Long = DateTime.DateParse(s)
DatePicker1.DateTicks = date
Catch
DatePicker1.As(JavaObject).RunMethodJO("getEditor", Null).RunMethod("setText", Array(DateTime.Date(DatePicker1.DateTicks)))
End Try
End If
End Sub