<SerializableAttribute()>
Public Class AnnGroupObject 
   Inherits AnnObject
   Implements IAnnProtractorObject, IAnnRulerObject, IAnnTextObject, ICloneable, IDisposable, ISerializable 

Dim instance As AnnGroupObject

[SerializableAttribute()]
public class AnnGroupObject : AnnObject, IAnnProtractorObject, IAnnRulerObject, IAnnTextObject, ICloneable, IDisposable, ISerializable  

[SerializableAttribute()]
public ref class AnnGroupObject : public AnnObject, IAnnProtractorObject, IAnnRulerObject, IAnnTextObject, ICloneable, IDisposable, ISerializable  

Private Sub AnnGroupObject_AnnGroupObject(ByVal container As AnnContainer)
   Dim group As AnnGroupObject = New AnnGroupObject()
   ' move the objects to the group
   Do While container.Objects.Count > 0
      Dim obj As AnnObject = container.Objects(0)
      container.Objects.RemoveAt(0)
      group.Objects.Add(obj)
   Loop

   ' add the group to the container
   container.Objects.Add(group)
End Sub

private void AnnGroupObject_AnnGroupObject(AnnContainer container)
{
   AnnGroupObject group = new AnnGroupObject();
   // move the objects to the group
   while(container.Objects.Count > 0)
   {
      AnnObject obj = container.Objects[0];
      container.Objects.RemoveAt(0);
      group.Objects.Add(obj);
   }

   // add the group to the container
   container.Objects.Add(group);
}