Friend WithEvents model As FarPoint.Win.Spread.Model.BaseSheetSpanModel
model = FpSpread1.ActiveSheet.Models.Span
model.Add(0, 0, 2, 2)
Dim h As FarPoint.Win.Spread.Model.SheetSpanModelEventHandler = AddressOf modelSpanModelChanged
AddHandler model.Changed, h
Private Sub Button1Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
model.Add(4, 2, 2, 3)
End Sub
Private Sub modelSpanModelChanged(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.Model.SheetSpanModelEventArgs)
TextBox1.Text = e.ColumnCount.ToString()
End Sub