Public Overridable Function GetEnumerator() As IEnumerator

Dim instance As GroupInfoCollection
Dim value As IEnumerator
 
value = instance.GetEnumerator()

public virtual IEnumerator GetEnumerator()

fpSpread1.AllowColumnMove = true;
fpSpread1.ActiveSheet.GroupBarInfo.Visible = true;
fpSpread1.ActiveSheet.AllowGroup = true;

FarPoint.Win.Spread.GroupInfo gi = new FarPoint.Win.Spread.GroupInfo();
gi.BackColor = Color.Yellow;

FarPoint.Win.Spread.GroupInfo gi2 = new FarPoint.Win.Spread.GroupInfo();
gi2.BackColor = Color.Green;

FarPoint.Win.Spread.GroupInfoCollection gic = new FarPoint.Win.Spread.GroupInfoCollection();
gic.AddRange(new FarPoint.Win.Spread.GroupInfo[] { gi, gi2 });
IEnumerator se;
bool b;
se = gic.GetEnumerator();
b = se.MoveNext();
if (b == true)
{
      fpSpread1.ActiveSheet.GroupInfos.Add((FarPoint.Win.Spread.GroupInfo)se.Current);
}

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