… = _DateChooser_Colors[…] (gb.form)

Dim hDateChooser As DateChooser
Dim anInteger As Integer
anInteger = hDateChooser.Colors [ Date As Date ]

Return the specific color associated with a date, or Color.Default if no specific color is associated.