Congratiolations for the great VB Office 2010 sample. But how can I set the individuell Background Colors like you can see in the picture below?

Here is a small sample:

 

CalendarControl.BeforeDrawThemeObjectFlags = -1

 

Private Sub CalendarControl_BeforeDrawThemeObject(ByVal eObjType As XtremeCalendarControl.CalendarBeforeDrawThemeObject, ByVal Params As Variant)
    Dim pTheme2007 As CalendarThemeOffice2007
    Set pTheme2007 = CalendarControl.Theme
       
    If eObjType = xtpCalendarBeforeDraw_DayViewTimeScaleCaption Then
        CalendarControl.Theme.DayView.TimeScale.Caption.Font.Italic = (Second(Now) Mod 2) = 0
        CalendarControl.Theme.DayView.TimeScale.Caption.Color = RGB(10, 200, 100)
        CalendarControl.Theme.DayView.TimeScale.LineColor = RGB(10, 200, 100)
       
    ElseIf eObjType = xtpCalendarBeforeDraw_DayViewCell Then
        Dim pCell As CalendarThemeDayViewCellParams
        Set pCell = Params
       
        If pCell.Index Mod 3 = 0 Then
            If pCell.WorkCell Then
                pTheme2007.DayView.Day.Group.Cell.WorkCell.BackgroundColor = RGB(200, 255, 0)
            Else
                pTheme2007.DayView.Day.Group.Cell.NonWorkCell.BackgroundColor = RGB(255, 200, 0)
            End If
        End If
       
    ElseIf eObjType = xtpCalendarBeforeDraw_DayViewDay Then
        pTheme2007.DayView.Day.Header.BaseColor = 20000 + 100 * Weekday(Params.Date)
        pTheme2007.DayView.Day.Header.TodayBaseColor = RGB(0, 0, 0)
       
    End If
   
End Sub