GrapeCity.Win.Spread.InputMan.CellType.GcDateTimeCellType gcDateTimeCell1 = new GrapeCity.Win.Spread.InputMan.CellType.GcDateTimeCellType();
gcDateTimeCell1.DropDownCalendar.BorderStyle = BorderStyle.FixedSingle;
gcDateTimeCell1.DropDownCalendar.SingleBorderColor = Color.DarkViolet;
fpSpread1.Sheets[0].Cells[1, 1].CellType = gcDateTimeCell1;
Dim gcDateTimeCell1 As New GrapeCity.Win.Spread.InputMan.CellType.GcDateTimeCellType()
gcDateTimeCell1.DropDownCalendar.BorderStyle = BorderStyle.FixedSingle
gcDateTimeCell1.DropDownCalendar.SingleBorderColor = Color.DarkViolet
FpSpread1.Sheets(0).Cells(1, 1).CellType = gcDateTimeCell1