GrapeCity.Win.Spread.InputMan.CellType.GcDateTimeCellType gcDateTimeCell1 = new GrapeCity.Win.Spread.InputMan.CellType.GcDateTimeCellType();
gcDateTimeCell1.DropDownCalendar.ScrollRate = 2;
gcDateTimeCell1.DropDownCalendar.ScrollTipAlign = GrapeCity.Win.Spread.InputMan.CellType.ScrollTipAlignment.BottomRight;
GrapeCity.Win.Spread.InputMan.CellType.HolidayStyle nonePublicHoliday = new GrapeCity.Win.Spread.InputMan.CellType.HolidayStyle("None Public Holiday");
nonePublicHoliday.SubStyle = new GrapeCity.Win.Spread.InputMan.CellType.SubStyle(Color.White, Color.Red, true, false);
nonePublicHoliday.Holidays.Add((GrapeCity.Win.Spread.InputMan.CellType.IHoliday)new GrapeCity.Win.Spread.InputMan.CellType.DayOfWeekHoliday("Mothers Day", GrapeCity.Win.Spread.InputMan.CellType.MonthFlags.May, GrapeCity.Win.Spread.InputMan.CellType.DayOfWeekInMonthFlags.Second, GrapeCity.Win.Spread.InputMan.CellType.DayOfWeekFlags.Sunday));
nonePublicHoliday.Holidays.Add((GrapeCity.Win.Spread.InputMan.CellType.IHoliday)new GrapeCity.Win.Spread.InputMan.CellType.DayOfWeekHoliday("Fathers Day",GrapeCity.Win.Spread.InputMan.CellType.MonthFlags.June, GrapeCity.Win.Spread.InputMan.CellType.DayOfWeekInMonthFlags.Third,GrapeCity.Win.Spread.InputMan.CellType.DayOfWeekFlags.Sunday));
gcDateTimeCell1.DropDownCalendar.HolidayStyles.Add("OtherHoliday", nonePublicHoliday);
gcDateTimeCell1.DropDownCalendar.ActiveHolidayStyles = new String[] { "OtherHoliday"};
fpSpread1.Sheets[0].Cells[1, 1].CellType = gcDateTimeCell1;
Dim gcDateTimeCell1 As New GrapeCity.Win.Spread.InputMan.CellType.GcDateTimeCellType()
gcDateTimeCell1.DropDownCalendar.ScrollRate = 2
gcDateTimeCell1.DropDownCalendar.ScrollTipAlign = GrapeCity.Win.Spread.InputMan.CellType.ScrollTipAlignment.BottomRight
Dim nonePublicHoliday As New GrapeCity.Win.Spread.InputMan.CellType.HolidayStyle("None Public Holiday")
nonePublicHoliday.SubStyle = New GrapeCity.Win.Spread.InputMan.CellType.SubStyle(Color.White, Color.Red, True, False)
nonePublicHoliday.Holidays.Add(DirectCast(New GrapeCity.Win.Spread.InputMan.CellType.DayOfWeekHoliday("Mothers Day", GrapeCity.Win.Spread.InputMan.CellType.MonthFlags.May, GrapeCity.Win.Spread.InputMan.CellType.DayOfWeekInMonthFlags.Second, GrapeCity.Win.Spread.InputMan.CellType.DayOfWeekFlags.Sunday), GrapeCity.Win.Spread.InputMan.CellType.IHoliday))
nonePublicHoliday.Holidays.Add(DirectCast(New GrapeCity.Win.Spread.InputMan.CellType.DayOfWeekHoliday("Fathers Day", GrapeCity.Win.Spread.InputMan.CellType.MonthFlags.June, GrapeCity.Win.Spread.InputMan.CellType.DayOfWeekInMonthFlags.Third, GrapeCity.Win.Spread.InputMan.CellType.DayOfWeekFlags.Sunday), GrapeCity.Win.Spread.InputMan.CellType.IHoliday))
gcDateTimeCell1.DropDownCalendar.HolidayStyles.Add("OtherHoliday", nonePublicHoliday)
gcDateTimeCell1.DropDownCalendar.ActiveHolidayStyles = New String() {"OtherHoliday"}
fpSpread1.Sheets(0).Cells(1, 1).CellType = gcDateTimeCell1