… = DateChooser[…] (gb.form)

Dim hDateChooser As DateChooser
Dim hDateChooserDate As _DateChooser_Date
hDateChooserDate = hDateChooser [ Date As Date ]

Return a virtual object that allows to define the display properties of a date.

You can use that method or the Data event.