Public Overrides Sub AddSelection( _
   ByVal row As Integer, _
   ByVal column As Integer, _
   ByVal rowCount As Integer, _
   ByVal columnCount As Integer _
) 

Dim instance As DefaultSheetSelectionModel
Dim row As Integer
Dim column As Integer
Dim rowCount As Integer
Dim columnCount As Integer
 
instance.AddSelection(row, column, rowCount, columnCount)

public override void AddSelection( 
   int row,
   int column,
   int rowCount,
   int columnCount
)

private void Page_Load(object sender, System.EventArgs e)
{
   if (this.IsPostBack) return;

 FpSpread1.ActiveSheetView.ColumnCount = 8;
 FpSpread1.ActiveSheetView.RowCount = 10;
 FpSpread1.ActiveSheetView.SelectionBackColor = Color.Yellow;
 FarPoint.Web.Spread.Model.ISheetSelectionModel model = FpSpread1.ActiveSheetView.SelectionModel;
 
 bool b1, b2, b3;
 int i1;
 model.AddSelection(0, 0, 3, 3);
 b1 = model.IsAnyCellInColumnSelected(2);
 b2 = model.IsAnyCellInRowSelected(2);
 b3 = model.IsSelected(1,1);
 i1 = model.Count;
 ListBox1.Items.Add(Convert.ToString(b1));
 ListBox1.Items.Add(Convert.ToString(b2));
 ListBox1.Items.Add(Convert.ToString(b3));
 ListBox1.Items.Add(Convert.ToString(i1));
}

private void Button1_Click(object sender, System.EventArgs e)
{
 FarPoint.Web.Spread.Model.ISheetSelectionModel model = FpSpread1.Sheets[0].SelectionModel;
 model.RemoveSelection(0, 0, 3, 3);
}

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   If (IsPostBack) Then Return

   Dim b1, b2, b3 As Boolean
   Dim i1 As Integer
   FpSpread1.ActiveSheetView.ColumnCount = 8
   FpSpread1.ActiveSheetView.RowCount = 10
   FpSpread1.ActiveSheetView.SelectionBackColor = Color.Yellow
   Dim model As FarPoint.Web.Spread.Model.ISheetSelectionModel = FpSpread1.Sheets(0).SelectionModel
   model.AddSelection(0, 0, 3, 3)
   b1 = model.IsAnyCellInColumnSelected(2)
   b2 = model.IsAnyCellInRowSelected(2)
   b3 = model.IsSelected(1,1)
   i1 = model.Count
   ListBox1.Items.Add(b1)
   ListBox1.Items.Add(b2)
   ListBox1.Items.Add(b3)
   ListBox1.Items.Add(i1)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   Dim model As FarPoint.Web.Spread.Model.ISheetSelectionModel = FpSpread1.Sheets(0).SelectionModel
   model.RemoveSelection(0, 0, 3, 3)
End Sub