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

Dim instance As IRangeSupport
Dim row As Integer
Dim column As Integer
Dim rowCount As Integer
Dim columnCount As Integer
 
instance.Clear(row, column, rowCount, columnCount)

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

FarPoint.Win.Spread.Model.IRangeSupport irs;
DialogResult dlg;
Random r = new Random();
int i, j;
for (i = 0; i<=50; i++)
{
for (j = 0; j<=3; j++)
fpSpread1.ActiveSheet.SetValue(i, j, r.Next(1, 200).ToString());
}
irs = (FarPoint.Win.Spread.Model.IRangeSupport)fpSpread1.ActiveSheet.Models.Data;
dlg = MessageBox.Show("Do you want to add some columns and rows?", "Clear", MessageBoxButtons.YesNo);
if (dlg == DialogResult.Yes)
{
irs.Clear(0, 0, 10, 2);
}

Dim irs As FarPoint.Win.Spread.Model.IRangeSupport
Dim dlg As DialogResult
Dim r As New Random()
Dim i, j As Integer
For i = 0 To 50
For j = 0 To 3
FpSpread1.ActiveSheet.SetValue(i, j, r.Next(1, 200).ToString())
Next j
Next i
irs = FpSpread1.ActiveSheet.Models.Data
dlg = MessageBox.Show("Do you want to clear some data?", "Clear", MessageBoxButtons.YesNo)
If dlg = DialogResult.Yes Then
irs.Clear(0, 0, 10, 2)
End If