Friend WithEvents model As FarPoint.Win.Spread.Model.BaseSheetSelectionModel
model = FpSpread1.ActiveSheet.Models.Selection
model.AddSelection(0, 0, 2, 2)
Dim h As FarPoint.Win.Spread.Model.SheetSelectionModelEventHandler = AddressOf modelSelectionModelChanged
AddHandler model.Changed, h
Private Sub Button1Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
model.AddSelection(4, 2, 2, 3)
End Sub
Private Sub modelSelectionModelChanged(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.Model.SheetSelectionModelEventArgs)
TextBox1.Text = e.ColumnCount.ToString()
End Sub