Imports Infragistics.Win.UltraWinSchedule ... Private Sub AssignAppearancestoHolidays_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load CreateAppearances() Me.UltraCalendarLook1.DaysOfYearLook(YearMonthEnum.January, 1).Appearance = _ Me.UltraCalendarLook1.Appearances("New Year's Day") Me.UltraCalendarLook1.DaysOfYearLook(YearMonthEnum.February, 14).Appearance = _ Me.UltraCalendarLook1.Appearances("St. Valentine's Day") Me.UltraCalendarLook1.DaysOfYearLook(YearMonthEnum.March, 17).Appearance = _ Me.UltraCalendarLook1.Appearances("St. Patrick's Day") Me.UltraCalendarLook1.DaysOfYearLook(YearMonthEnum.July, 4).Appearance = _ Me.UltraCalendarLook1.Appearances("Independence Day") Me.UltraCalendarLook1.DaysOfYearLook(YearMonthEnum.October, 31).Appearance = _ Me.UltraCalendarLook1.Appearances("Halloween") Me.UltraCalendarLook1.DaysOfYearLook(YearMonthEnum.December, 25).Appearance = _ Me.UltraCalendarLook1.Appearances("Christmas") Me.UltraCalendarLook1.DaysOfYearLook(YearMonthEnum.December, 31).Appearance = _ Me.UltraCalendarLook1.Appearances("New Year's Eve") End Sub