FarPoint.Win.Spread.CellType.ProgressCellType progress = new FarPoint.Win.Spread.CellType.ProgressCellType();
progress.TextStyle =FarPoint.Win.ProgressTextStyle.PercentRemaining;
progress.Text ="This is the percent remaining.";
fpSpread1.Sheets[0].Cells[0, 0].CellType = progress;
Dim progress As New FarPoint.Win.Spread.CellType.ProgressCellType
progress.TextStyle = FarPoint.Win.ProgressTextStyle.PercentRemaining
progress.Text ="This is the percent remaining."
FpSpread1.Sheets(0).Cells(0, 0).CellType = progress