_DateChooser_Colors[…] = … (gb.form)

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

Define the specific color associated with a date.