Private WithEvents dm As FarPoint.Win.Spread.Model.DefaultSheetDataModel

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
　　' ドラッグフィルの設定
　　FpSpread1.AllowDragFill = True
　　FpSpread1.RangeDragFillMode = FarPoint.Win.Spread.DragFillMode.ControlSeries
　　FpSpread1.ActiveSheet.SetValue(0, 0, 1)

　　' データモデルの設定
　　dm = FpSpread1.ActiveSheet.Models.Data
End Sub

Private Sub dm_Changed(sender As Object, e As FarPoint.Win.Spread.Model.SheetDataModelEventArgs) Handles dm.Changed
　　' イベント発生の確認
　　Console.WriteLine("dm_Changed: row={0} col={1} value={2}", e.Row, e.Column, dm.GetValue(e.Row, e.Column))
End Sub

private FarPoint.Win.Spread.Model.DefaultSheetDataModel dm;

private void Form1_Load(object sender, EventArgs e)
{
　　// ドラッグフィルの設定
　　fpSpread1.AllowDragFill = true;
　　fpSpread1.RangeDragFillMode = FarPoint.Win.Spread.DragFillMode.ControlSeries;
　　fpSpread1.ActiveSheet.SetValue(0, 0, 1);

　　// データモデルの設定
　　dm = (FarPoint.Win.Spread.Model.DefaultSheetDataModel)fpSpread1.ActiveSheet.Models.Data;

　　dm.Changed += new FarPoint.Win.Spread.Model.SheetDataModelEventHandler(this.dm_Changed);
}

private void dm_Changed(object sender, FarPoint.Win.Spread.Model.SheetDataModelEventArgs e)
{
　　// イベント発生の確認
　　Console.WriteLine("m_Changed: row={0} col={1} value={2}", e.Row, e.Column, dm.GetValue(e.Row, e.Column));
}