FarPoint.Win.Spread.CellType.GeneralCellType testcell = new FarPoint.Win.Spread.CellType.GeneralCellType();
testcell.ShrinkToFit = true;
fpSpread1.Sheets[0].Cells[0, 0].CellType = testcell;
Dim testcell As New FarPoint.Win.Spread.CellType.GeneralCellType()
testcell.ShrinkToFit = True
FpSpread1.Sheets(0).Cells(0, 0).CellType = testcell