Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
　　' セル型の設定
　　Dim tc As New FarPoint.Win.Spread.CellType.TextCellType()
　　tc.ShrinkToFit = True
　　FpSpread1.ActiveSheet.Columns(1).CellType = tc

　　' テストデータの設定
　　FpSpread1.ActiveSheet.Cells(1, 1).Value = "縮小して全体を表示する"
　　FpSpread1.ActiveSheet.Columns(1).Width = 100
End Sub

private void Form1_Load(object sender, EventArgs e)
{
　　// セル型の設定
　　FarPoint.Win.Spread.CellType.TextCellType tc = new FarPoint.Win.Spread.CellType.TextCellType();
　　tc.ShrinkToFit = true;
　　fpSpread1.ActiveSheet.Columns[1].CellType = tc;

　　// テストデータの設定
　　fpSpread1.ActiveSheet.Cells[1, 1].Value = "縮小して全体を表示する";
　　fpSpread1.ActiveSheet.Columns[1].Width = 100;
}