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";
FarPoint.Win.Spread.CellType.ProgressCellType progress1 = new FarPoint.Win.Spread.CellType.ProgressCellType(progress);
fpSpread1.Sheets[0].Cells[0, 1].CellType = progress1;
fpSpread1.Sheets[0].Cells[0, 1].Value = "50";
fpSpread1.ActiveSheet.Cells[0, 0].VisualStyles = FarPoint.Win.VisualStyles.Off;
fpSpread1.ActiveSheet.Cells[0, 1].VisualStyles = FarPoint.Win.VisualStyles.Off;
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"
Dim progress1 As New FarPoint.Win.Spread.CellType.ProgressCellType(progress)
fpSpread1.Sheets(0).Cells(0, 1).CellType = progress1
fpSpread1.Sheets(0).Cells(0, 1).Value = "50"
fpSpread1.ActiveSheet.Cells(0, 0).VisualStyles = FarPoint.Win.VisualStyles.Off
fpSpread1.ActiveSheet.Cells(0, 1).VisualStyles = FarPoint.Win.VisualStyles.Off