GrapeCity.Win.Spread.InputMan.CellType.GcDateTimeCellType inputcell = new GrapeCity.Win.Spread.InputMan.CellType.GcDateTimeCellType();
inputcell.DropDownCalendar.ControlStyle = new GrapeCity.Win.Spread.InputMan.CellType.Style(Color.Red, Color.Green);
inputcell.DropDownCalendar.UseControlStyle = true;
fpSpread1.Sheets[0].Cells[0, 0].CellType = inputcell;
Dim inputcell As New GrapeCity.Win.Spread.InputMan.CellType.GcDateTimeCellType()
inputcell.DropDownCalendar.ControlStyle = New GrapeCity.Win.Spread.InputMan.CellType.Style(Color.Red, Color.Green)
inputcell.DropDownCalendar.UseControlStyle = True
FpSpread1.Sheets(0).Cells(0, 0).CellType = inputcell