FarPoint.Win.Spread.Model.CellRange cr = new FarPoint.Win.Spread.Model.CellRange(0, 0, 3, 3); 
fpSpread1.ActiveSheet.Models.Span.Add(cr.Row, cr.Column, cr.RowCount, cr.ColumnCount); 
bool b = cr.IsValidRange(fpSpread1.ActiveSheet, true); 
if (b) { 
     fpSpread1.ActiveSheet.Cells(cr.Row, cr.Column, cr.RowCount - 1, cr.ColumnCount - 1).BackColor = Color.Red; 
}
	 
	
		Dim cr As New FarPoint.Win.Spread.Model.CellRange(0, 0, 3, 3)
FpSpread1.ActiveSheet.Models.Span.Add(cr.Row, cr.Column, cr.RowCount, cr.ColumnCount)
Dim b As Boolean = cr.IsValidRange(FpSpread1.ActiveSheet, True)
If b Then
     FpSpread1.ActiveSheet.Cells(cr.Row, cr.Column, cr.RowCount - 1, cr.ColumnCount - 1).BackColor = Color.Red
End If