CalendarTheme2007 and BeforeDrawDayViewCell

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AxCalendarControl1.SetTheme(New CalendarThemeOffice2007Class)

        If Not AxCalendarControl1.BeforeDrawThemeObjectFlags Is Nothing Then
            AxCalendarControl1.BeforeDrawThemeObjectFlags.SetFlag(CalendarBeforeDrawThemeObject.xtpCalendarBeforeDraw_DayViewDay)
        End If

        AxCalendarControl1.Populate()
    End Sub

    Private Sub AxCalendarControl1_BeforeDrawThemeObject(ByVal sender As Object, ByVal e As AxXtremeCalendarControl._DCalendarControlEvents_BeforeDrawThemeObjectEvent) Handles AxCalendarControl1.BeforeDrawThemeObject
        Dim pTheme2007 As CalendarThemeOffice2007
        pTheme2007 = AxCalendarControl1.Theme
        Dim pDay As CalendarViewDay

        If e.eObjType = CalendarBeforeDrawThemeObject.xtpCalendarBeforeDraw_DayViewDay Then
            pDay = e.drawParams

            If ... Then
                pTheme2007.DayView.Day.Group.Cell.WorkCell.BackgroundColor = RGB(..., ..., ...)
            End If
        End If
    End Sub