FarPoint.Win.Spread.Model.ISheetSelectionModel sel;
DialogResult dlg;
sel = (FarPoint.Win.Spread.Model.ISheetSelectionModel)fpSpread1.ActiveSheet.Models.Selection;
sel.AddSelection(0, 0, 2, 2);
dlg = MessageBox.Show("Do you want to extend the selection?", "ExtendSelection", MessageBoxButtons.YesNo);
if (dlg == DialogResult.Yes)
{
sel.ExtendSelection(4, 4);
}
Dim sel As FarPoint.Win.Spread.Model.ISheetSelectionModel
Dim dlg As DialogResult
sel = FpSpread1.ActiveSheet.Models.Selection
sel.AddSelection(0, 0, 2, 2)
dlg = MessageBox.Show("Do you want to extend the selection?", "ExtendSelection", MessageBoxButtons.YesNo)
If dlg = DialogResult.Yes Then
sel.ExtendSelection(4, 4)
End If