GrapeCity.Win.Spread.InputMan.CellType.GcNumberCellType ncell1 = new GrapeCity.Win.Spread.InputMan.CellType.GcNumberCellType();
ncell1.DropDownCalculator.BackColor = Color.Bisque;
ncell1.DropDownCalculator.BorderStyle = BorderStyle.FixedSingle;
ncell1.AlternateText.DisplayZero.Text = "Zero";
fpSpread1.ActiveSheet.Cells[1, 1].CellType = ncell1;
Dim ncell1 As New GrapeCity.Win.Spread.InputMan.CellType.GcNumberCellType()
ncell1.DropDownCalculator.BackColor = Color.Bisque
ncell1.DropDownCalculator.BorderStyle = BorderStyle.FixedSingle
ncell1.AlternateText.DisplayZero.Text = "Zero"
fpSpread1.ActiveSheet.Cells(1, 1).CellType = ncell1