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