B4J Question Help for DatePicker!

#Region Shared Files
#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
#End Region

'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip

Sub Class_Globals
    Private Root As B4XView
    Private xui As XUI
    
    Private DatePicker1 As DatePicker
End Sub

Public Sub Initialize
'    B4XPages.GetManager.LogEvents = True
End Sub

'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
    DateTime.DateFormat = "dd/MM/yyyy"
End Sub

'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.

Private Sub Button1_Click
    xui.MsgboxAsync(DateTime.Date(DatePicker1.DateTicks), "B4X")
    DatePicker1.DateTicks = DateTime.DateParse("23/06/2023")
    xui.MsgboxAsync(DateTime.Date(DatePicker1.DateTicks), "B4X")
End Sub

    Dim datefromDB As Long = DateTime.DateParse("Value from DB")
    DatePicker1.DateTicks = datefromDB