Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
　　With FpSpread1.ActiveSheet
　　　　' （問題が発生する行・列数は実行環境のスペックにも依存します。
　　　　.RowCount = 5000
　　　　.ColumnCount = 5000

　　　　' アウトラインを作成します。
　　　　' （10行ごとに作成）
　　　　For index As Integer = 0 To .RowCount Step 10
　　　　　　If index + 10 <= .RowCount Then
　　　　　　　　.AddRangeGroup(index, 9, True)
　　　　　　　　.AddRangeGroup(index, 8, True)
　　　　　　End If
　　　　Next

　　　　' （10列ごとに作成）
　　　　For index As Integer = 0 To .ColumnCount Step 10
　　　　　　If index + 10 <= .ColumnCount Then
　　　　　　　　.AddRangeGroup(index, 9, False)
　　　　　　　　.AddRangeGroup(index, 8, False)
　　　　　　End If
　　　　Next

　　　　' すべてのアウトラインを折りたたみます。
　　　　Dim groupInfo() As FarPoint.Win.Spread.RangeGroupInfo
　　　　' （行のアウトライン）
　　　　groupInfo = .GetRangeGroupInfo(1, True)
　　　　For index As Integer = 0 To groupInfo.Length - 1
　　　　　　.ExpandRangeGroup(groupInfo(index), True, False)
　　　　Next

　　　　' （列のアウトライン）
　　　　groupInfo = .GetRangeGroupInfo(1, False)
　　　　For index As Integer = 0 To groupInfo.Length - 1
　　　　　　.ExpandRangeGroup(groupInfo(index), False, False)
　　　　Next
　　End With
End Sub