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

        If Not AxCalendarControl1.BeforeDrawThemeObjectFlags Is Nothing Then
            AxCalendarControl1.BeforeDrawThemeObjectFlags.SetFlag(CalendarBeforeDrawThemeObject.xtpCalendarBeforeDraw_DayViewCell)
        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 pParam As CalendarThemeDayViewCellParams

        If e.eObjType = CalendarBeforeDrawThemeObject.xtpCalendarBeforeDraw_DayViewCell Then
            pParam = e.drawParams
            If pParam.BeginTime > Now Then
                pTheme2007.DayView.Day.Group.Cell.WorkCell.BackgroundColor = RGB(50, 150, 150)
                pTheme2007.DayView.Day.Group.Cell.NonWorkCell.BackgroundColor = RGB(50, 150, 150)
            End If
        End If
    End Sub

    Private Function RGB(ByVal r As Long, ByVal g As Long, ByVal b As Long) As UInt32
        RGB = Convert.ToUInt32(r + g * 256 + b * 256 * 256)
    End Function