FpSpread1.BorderCollapse = FarPoint.Win.Spread.BorderCollapse.Separate
FpSpread1.AllowColumnMove = True
FpSpread1.ActiveSheet.GroupBarInfo.Visible = True
FpSpread1.ActiveSheet.AllowGroup = TrueDim gi AsNew FarPoint.Win.Spread.GroupInfo
gi.BackColor = Color.Yellow
Dim gi2 AsNew FarPoint.Win.Spread.GroupInfo
gi2.BackColor = Color.Green
Dim gic AsNew FarPoint.Win.Spread.GroupInfoCollection()
Dim coll AsNew System.Collections.ArrayList(3)
coll.AddRange(NewObject() {gi, gi2})
gic.AddRange(coll)
Dim gic AsNew FarPoint.Win.Spread.GroupInfoCollection()
gic.AddRange(New FarPoint.Win.Spread.GroupInfo() {gi, gi2})
Dim se As IEnumerator
Dim b AsBoolean
se = gic.GetEnumerator()
b = se.MoveNext
If b Then
FpSpread1.ActiveSheet.GroupInfos.Add(se.Current)
EndIf