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