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()
gic.AddRange(New FarPoint.Win.Spread.GroupInfo() {gi, gi2})
Dim arr(4)
gic.CopyTo(CType(arr, Array), 0)
FpSpread1.ActiveSheet.GroupInfos.Add(arr(0))