FarPoint.Win.Spread.CellType.BarCodeCellType barc = new FarPoint.Win.Spread.CellType.BarCodeCellType();
barc.AcceptsCheckDigit = true;
barc.BarAdjust.X = "10";
barc.BarAdjust.Y = "10";
barc.BarCodePadding.Left = "5";
barc.BarCodePadding.Right = "5";
barc.BarSize.Height = "10";
barc.BarSize.Width = "10";
barc.DisplayCheckDigit = true;
barc.DisplayMode = FarPoint.Win.Spread.CellType.BarCodeDisplayMode.Image;
barc.FixedLength = 20;
barc.Message = true;
barc.MessagePosition = FarPoint.Win.Spread.CellType.BarCode.MessagePosition.Center;
barc.MessageValue = "Display This Instead of Value";
barc.MinimumHeight = "80";
barc.ModuleSize.Broad = "1";
barc.ModuleSize.Narrow = "2";
barc.Rotation = FarPoint.Win.Spread.CellType.BarCode.Rotation.Rotation0;
barc.SubEditor = null;
barc.Type = new FarPoint.Win.Spread.CellType.BarCode.UPC();
barc.Unit = FarPoint.Win.Spread.CellType.BarCode.Unit.Inch;
fpSpread1.ActiveSheet.Columns[0].Width = 220;
fpSpread1.ActiveSheet.Rows[0].Height = 250;
fpSpread1.ActiveSheet.Cells[0, 0].CellType = barc;
fpSpread1.ActiveSheet.Cells[0, 0].Value = 36000280753;
Dim barc As New FarPoint.Win.Spread.CellType.BarCodeCellType
barc.AcceptsCheckDigit = True
barc.BarAdjust.X = "10"
barc.BarAdjust.Y = "10"
barc.BarCodePadding.Left = "5"
barc.BarCodePadding.Right = "5"
barc.BarSize.Height = "10"
barc.BarSize.Width = "10"
barc.DisplayCheckDigit = True
barc.DisplayMode = FarPoint.Win.Spread.CellType.BarCodeDisplayMode.Image
barc.FixedLength = 20
barc.Message = True
barc.MessagePosition = FarPoint.Win.Spread.CellType.BarCode.MessagePosition.Center
barc.MessageValue = "Display This Instead of Value"
barc.MinimumHeight = "80"
barc.ModuleSize.Broad = "1"
barc.ModuleSize.Narrow = "2"
barc.Rotation = FarPoint.Win.Spread.CellType.BarCode.Rotation.Rotation0
barc.SubEditor = Nothing
barc.Type = New FarPoint.Win.Spread.CellType.BarCode.UPC
barc.Unit = FarPoint.Win.Spread.CellType.BarCode.Unit.Inch
fpSpread1.ActiveSheet.Columns(0).Width = 220
fpSpread1.ActiveSheet.Rows(0).Height = 250
fpSpread1.ActiveSheet.Cells(0, 0).CellType = barc
fpSpread1.ActiveSheet.Cells(0, 0).Value = 36000280753