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 i As Integer = rangeGroupSupport.GetRangeGroupLevels(True)
If i > 0 Then
MessageBox.Show("The number of group levels is " & i.ToString())
End If