FarPoint.Win.Spread.CellType.ColorPickerCellType cp = new FarPoint.Win.Spread.CellType.ColorPickerCellType();
cp.AllowFullOpen = true;
cp.AnyColor = false;
cp.Caption = "ColorPicker";
cp.CustomColors = new int[] {255, 190, 50};
cp.FullOpen = true;
cp.UnknownText = "Custom Color";
cp.UnknownTextStyle = FarPoint.Win.Spread.CellType.UnknownTextStyle.Custom;
cp.Style = FarPoint.Win.Spread.CellType.ColorPickerStyle.BoxedWithText;
fpSpread1.ActiveSheet.Cells[0, 0].CellType = cp;
Dim cp As New FarPoint.Win.Spread.CellType.ColorPickerCellType
cp.AllowFullOpen = True
cp.AnyColor = True
cp.CustomColors = New Integer() {255, 190, 50}
cp.Caption = "ColorPicker"
cp.FullOpen = True
cp.UnknownText = "FarPoint"
cp.UnknownTextStyle = FarPoint.Win.Spread.CellType.UnknownTextStyle.Custom
cp.Style = FarPoint.Win.Spread.CellType.ColorPickerStyle.BoxedWithText
fpSpread1.ActiveSheet.Cells(0, 0).CellType = cp