FpSpread1.ActiveSheet.AddRangeGroup(0, 20, True)
FpSpread1.ActiveSheet.AddRangeGroup(0, 10, True)
FpSpread1.ActiveSheet.RangeGroupBackGroundColor = Color.Yellow
FpSpread1.ActiveSheet.RangeGroupButtonStyle = FarPoint.Win.Spread.RangeGroupButtonStyle.Enhanced
Dim rangeGroupSupport As FarPoint.Win.Spread.IRangeGroupSupport = CType(FpSpread1.ActiveSheet, FarPoint.Win.Spread.IRangeGroupSupport)
If rangeGroupSupport Is Nothing Then
Return
End If
Dim rgi() As FarPoint.Win.Spread.RangeGroupInfo = rangeGroupSupport.GetRangeGroupInfo(2, True)
rangeGroupSupport.ExpandRangeGroup(rgi(0), True, True)