Public Overridable Function Clone() As Object

Dim instance As AnnObject
Dim value As Object
 
value = instance.Clone()

public virtual object Clone()

public:
virtual Object^ Clone(); 

Public Sub AnnObject_Clone(ByVal srcContainer As AnnContainer, ByVal destContainer As AnnContainer)
   ' first remove all objects from the destination container
   destContainer.Objects.Clear()
   ' copy the objects from the src to the destination container
   For Each srcObj As AnnObject In srcContainer.Objects
      ' we want to keep the original object intact, so create an exact copy by cloning the object
      Dim destObj As AnnObject = CType(IIf(TypeOf srcObj.Clone() Is AnnObject, srcObj.Clone(), Nothing), AnnObject)
      destContainer.Objects.Add(destObj)
   Next srcObj
End Sub

public void AnnObject_Clone(AnnContainer srcContainer, AnnContainer destContainer)
{
   // first remove all objects from the destination container
   destContainer.Objects.Clear();
   // copy the objects from the src to the destination container
   foreach(AnnObject srcObj in srcContainer.Objects)
   {
      // we want to keep the original object intact, so create an exact copy by cloning the object
      AnnObject destObj = srcObj.Clone() as AnnObject;
      destContainer.Objects.Add(destObj);
   }
}