Friend WithEvents model As FarPoint.Win.Spread.Model.BaseSheetDataModel
model = FpSpread1.ActiveSheet.Models.Data
model.ColumnCount = 4
Dim h As FarPoint.Win.Spread.Model.SheetDataModelEventHandler = AddressOf modelDataModelChanged
AddHandler model.Changed, h
Private Sub Button1Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
model.SetValue(0, 2, "DataModel")
End Sub
Private Sub modelDataModelChanged(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.Model.SheetDataModelEventArgs)
TextBox1.Text = e.Column.ToString()
End Sub