Calendar 주일,선택날자,특별한 날자 속성변경

   Private Sub RadCalendar1_ElementRender(sender As Object, e As RenderElementEventArgs) Handles RadCalendar1.ElementRender



        If e.Day.Date.DayOfWeek = DayOfWeek.Sunday Then
            e.Element.DrawBorder = True
            e.Element.Font = New Font("맑은 고딕", 9, FontStyle.Bold)
            e.Element.ForeColor = Color.Red
        ElseIf e.Day.Date.DayOfWeek = DayOfWeek.Saturday Then
            e.Element.DrawBorder = True
            e.Element.Font = New Font("맑은 고딕", 9, FontStyle.Bold)
            e.Element.ForeColor = Color.Blue
        Else
            e.Element.ResetValue(LightVisualElement.DrawBorderProperty, Telerik.WinControls.ValueResetFlags.Local)
            e.Element.ResetValue(LightVisualElement.FontProperty, Telerik.WinControls.ValueResetFlags.Local)
            e.Element.ResetValue(LightVisualElement.ForeColorProperty, Telerik.WinControls.ValueResetFlags.Local)
        End If

        If e.Day.Selected = True Then
            e.Element.NumberOfColors = 1
            e.Element.BackColor = Color.FromArgb(255, 129, 84)
            e.Element.BorderColor = Color.FromArgb(255, 129, 84)
            e.Element.ForeColor = Color.White
        Else
            e.Element.ResetValue(LightVisualElement.NumberOfColorsProperty, Telerik.WinControls.ValueResetFlags.Local)
            e.Element.ResetValue(LightVisualElement.BackColorProperty, Telerik.WinControls.ValueResetFlags.Local)
            e.Element.ResetValue(LightVisualElement.BorderColorProperty, Telerik.WinControls.ValueResetFlags.Local)
            e.Element.ResetValue(LightVisualElement.ForeColorProperty, Telerik.WinControls.ValueResetFlags.Local)
        End If

        For Each RadCalendarDay As RadCalendarDay In CType(sender, RadCalendar).SpecialDays
            If (e.Day.Date = RadCalendarDay.Date) Then
                e.Element.BackColor = Color.FromArgb(255, 129, 84)
                Return
            End If
        Next


    End Sub