GrapeCity.Win.Spread.InputMan.CellType.GcDateTimeCellType inputcell = new GrapeCity.Win.Spread.InputMan.CellType.GcDateTimeCellType();
inputcell.DropDownCalendar.BackColor = Color.Aquamarine;
inputcell.DropDownCalendar.TodayMarkColor = Color.Firebrick;
inputcell.DropDownCalendar.BorderStyle = BorderStyle.FixedSingle;
inputcell.DropDownCalendar.ShowTodayMark = true;
fpSpread1.Sheets[0].Cells[0, 0].CellType = inputcell;
fpSpread1.Sheets[0].Columns[0].Width = 100;
Dim inputcell As New GrapeCity.Win.Spread.InputMan.CellType.GcDateTimeCellType()
inputcell.DropDownCalendar.BackColor = Color.Aquamarine
inputcell.DropDownCalendar.TodayMarkColor = Color.Firebrick
inputcell.DropDownCalendar.BorderStyle = BorderStyle.FixedSingle
inputcell.DropDownCalendar.ShowTodayMark = True
fpSpread1.Sheets(0).Cells(0, 0).CellType = inputcell
fpSpread1.Sheets(0).Columns(0).Width = 100