Public Overridable Property Group As AnnGroupObject

Dim instance As AnnObject
Dim value As AnnGroupObject
 
instance.Group = value
 
value = instance.Group

public virtual AnnGroupObject Group {get; set;}

public:
virtual property AnnGroupObject^ Group {
   AnnGroupObject^ get();
   void set (    AnnGroupObject^ value);
}

Public Sub AnnObject_Group()
   ' add an object to the first container
   Dim line As AnnLineObject = New AnnLineObject()
   line.Name = "Line1"
   ShowGroupAndContainer(line)

   ' add it to a group
   Dim group As AnnGroupObject = New AnnGroupObject()
   group.Name = "Group1"
   group.Objects.Add(line)

   ShowGroupAndContainer(line)

   ' add the group to a container
   Dim container As AnnContainer = New AnnContainer()
   container.Name = "Container1"
   container.Objects.Add(group)

   ShowGroupAndContainer(line)
End Sub

Private Sub ShowGroupAndContainer(ByVal obj As AnnObject)
   Console.Write("Container: ")
   If Not obj.Container Is Nothing Then
      Console.Write(obj.Container.Name)
   Else
      Console.Write("none")
   End If

   Console.Write(", Group: ")
   If Not obj.Group Is Nothing Then
      Console.Write(obj.Group.Name)
   Else
      Console.Write("none")
   End If

   Console.WriteLine()
End Sub

public void AnnObject_Group()
{
   // add an object to the first container
   AnnLineObject line = new AnnLineObject();
   line.Name = "Line1";
   ShowGroupAndContainer(line);

   // add it to a group
   AnnGroupObject group = new AnnGroupObject();
   group.Name = "Group1";
   group.Objects.Add(line);

   ShowGroupAndContainer(line);

   // add the group to a container
   AnnContainer container = new AnnContainer();
   container.Name = "Container1";
   container.Objects.Add(group);

   ShowGroupAndContainer(line);
}

private void ShowGroupAndContainer(AnnObject obj)
{
   Console.Write("Container: ");
   if(obj.Container != null)
      Console.Write(obj.Container.Name);
   else
      Console.Write("none");

   Console.Write(", Group: ");
   if(obj.Group != null)
      Console.Write(obj.Group.Name);
   else
      Console.Write("none");

   Console.WriteLine();
}