Function GetSelections( _
   ByVal rowCount As Integer, _
   ByVal columnCount As Integer _
) As CellRange()

Dim instance As IDisjointSelections
Dim rowCount As Integer
Dim columnCount As Integer
Dim value() As CellRange
 
value = instance.GetSelections(rowCount, columnCount)

CellRange[] GetSelections( 
   int rowCount,
   int columnCount
)

FarPoint.Win.Spread.Model.IDisjointSelections djs;
FarPoint.Win.Spread.Model.CellRange[] cr;
djs = (FarPoint.Win.Spread.Model.IDisjointSelections)fpSpread1.ActiveSheet.Models.Selection;
fpSpread1.ActiveSheet.AddSelection(0, 0, 2, 2);
fpSpread1.ActiveSheet.AddSelection(0, 3, 2, 2);
cr = djs.GetSelections(4, 4);
label1.Text = "The first row in the first selection is " + cr[0].Row + " and the " +
"first column of the second selection is " + cr[1].Column;

Dim djs As FarPoint.Win.Spread.Model.IDisjointSelections
Dim cr As FarPoint.Win.Spread.Model.CellRange()
djs = FpSpread1.ActiveSheet.Models.Selection
FpSpread1.ActiveSheet.AddSelection(0, 0, 2, 2)
FpSpread1.ActiveSheet.AddSelection(0, 3, 2, 2)
cr = djs.GetSelections(4, 4)
Label1.Text = "The first row in the first selection is " & cr(0).Row & " and the " & _
"first column of the second selection is " & cr(1).Column