FarPoint.Win.Spread.CellType.ProgressCellType progress =new FarPoint.Win.Spread.CellType.ProgressCellType();
progress.Style = FarPoint.Win.ProgressStyle.Bars;
progress.FillColor = Color.Coral;
progress.FillTextColor = Color.DarkGreen;
progress.Minimum = 0;
progress.Maximum = 100;
progress.Orientation = FarPoint.Win.ProgressOrientation.LeftToRight;
fpSpread1.Sheets[0].Cells[0, 0].CellType = progress;
fpSpread1.Sheets[0].Cells[0, 0].Value = "50";
Dim progress As New FarPoint.Win.Spread.CellType.ProgressCellType()
progress.Style = FarPoint.Win.ProgressStyle.Bars
progress.FillColor = Color.Coral
progress.FillTextColor = Color.DarkGreen
progress.Minimum = 0
progress.Maximum = 100
progress.Orientation = FarPoint.Win.ProgressOrientation.LeftToRight
FpSpread1.Sheets(0).Cells(0, 0).CellType = progress
FpSpread1.Sheets(0).Cells(0, 0).Value = "50"