Private WithEvents mobjDataModel As DefaultSheetDataModel　 'DataModel object.

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
　　' 行・列数を設定します。
　　FpSpread1.ActiveSheet.RowCount = 3
　　FpSpread1.ActiveSheet.ColumnCount = 2

　　' DataModelを取得します。
　　mobjDataModel = DirectCast(FpSpread1.ActiveSheet.Models.Data, DefaultSheetDataModel)

　　' SetArrayメソッドで値（配列）を設定します。
　　Dim i As Integer = 0　 ' 行インデックス
　　Dim j As Integer　　　　 ' 列インデックス
　　For j = 0 To 3
　　　　Dim sData(,) As String
　　　　sData = {{j * 10}, {j * 10 + 1}, {j * 10 + 2}}
　　　　FpSpread1.ActiveSheet.SetArray(i, j, sData)
　　Next
End Sub

Private Sub mobjDataModel_Changed _
　　(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.Model.SheetDataModelEventArgs) _
　　　　Handles mobjDataModel.Changed
　　' コンソール出力
　　Console.WriteLine("row={0} col={1} value={2}", e.Row, e.Column, mobjDataModel.GetValue(e.Row, e.Column))
End Sub