GrapeCity.Win.Spread.InputMan.CellType.GcDateTimeCellType inputcell = new GrapeCity.Win.Spread.InputMan.CellType.GcDateTimeCellType();
inputcell.DropDown.DropDownType = GrapeCity.Win.Spread.InputMan.CellType.DateDropDownType.Picker;
fpSpread1.Sheets[0].Cells[1, 1].CellType = inputcell;
Dim inputcell As New GrapeCity.Win.Spread.InputMan.CellType.GcDateTimeCellType()
inputcell.DropDown.DropDownType = GrapeCity.Win.Spread.InputMan.CellType.DateDropDownType.Picker
fpSpread1.Sheets(0).Cells(1, 1).CellType = inputcell