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

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

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

FarPoint.Web.Spread.Model.ISheetSelectionModel iss;
iss = (FarPoint.Web.Spread.Model.ISheetSelectionModel)FpSpread1.ActiveSheetView.SelectionModel;
iss.SetSelection(0, 0, 2, 2)
iss.AddSelection(3, 0, 1, 2);
FarPoint.Web.Spread.Model.CellRange cr = iss[0];
string msg = "The first column in the selection is " + cr.Column.ToString();
Response.Write("<script language='javascript'>alert('" + msg + "')</script>");

Dim iss As FarPoint.Web.Spread.Model.ISheetSelectionModel
iss = FpSpread1.ActiveSheetView.SelectionModel
iss.SetSelection(0, 0, 2, 2)
iss.AddSelection(3, 0, 3, 2)
Dim cr As FarPoint.Web.Spread.Model.CellRange = iss.Item(0)
Dim msg As String = "The first column in the selection is " + cr.Column.ToString()
Response.Write("<script language='javascript'>alert('" & msg & "')</script>")