Sub SetSelection( _
   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.SetSelection(row, column, rowCount, columnCount)

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

FarPoint.Win.Spread.Model.ISheetSelectionModel sel;
DialogResult dlg;
sel = (FarPoint.Win.Spread.Model.ISheetSelectionModel)fpSpread1.ActiveSheet.Models.Selection;
dlg = MessageBox.Show("Do you want to set the selection?", "SetSelection", MessageBoxButtons.YesNo);
if (dlg == DialogResult.Yes)
{
sel.SetSelection(0, 0, 3, 3);
}

Dim sel As FarPoint.Win.Spread.Model.ISheetSelectionModel
Dim dlg As DialogResult
sel = FpSpread1.ActiveSheet.Models.Selection
dlg = MessageBox.Show("Do you want to set the selection?", "SetSelection", MessageBoxButtons.YesNo)
If dlg = DialogResult.Yes Then
sel.SetSelection(0, 0, 3, 3)
End If