Private Sub Set_Appearances_for_Alternate_Months_Load( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles MyBase.Load
Me.UltraMonthViewMulti1.CalendarLook = Me.UltraCalendarLook1
Me.UltraCalendarCombo1.CalendarLook = Me.UltraCalendarLook1
Me.UltraMonthViewMulti1.UseAlternateMonthAppearances = True
Me.UltraCalendarCombo1.UseAlternateMonthAppearances = True
Me.UltraCalendarLook1.AlternateMonthAppearance.BackColor = Color.Yellow
End Sub