Public Overridable ReadOnly Property BoundingRectangle As AnnRectangle

Dim instance As AnnObject
Dim value As AnnRectangle
 
value = instance.BoundingRectangle

public virtual AnnRectangle BoundingRectangle {get;}

public:
virtual property AnnRectangle BoundingRectangle {
   AnnRectangle get();
}

Public Sub AnnObject_BoundingRectangle(ByVal obj As AnnObject)
   Dim rc As AnnRectangle = obj.BoundingRectangle
   Dim rectObj As AnnRectangleObject = New AnnRectangleObject()
   rc.Offset(20, 20)
   rectObj.Bounds = rc
   rectObj.Pen = New AnnPen(Color.Red, New AnnLength(3, AnnUnit.Pixel))
   rectObj.Name = "New Rectangle"
   obj.Container.Objects.Add(rectObj)
End Sub

public void AnnObject_BoundingRectangle(AnnObject obj)
{
   AnnRectangle rc = obj.BoundingRectangle;
   AnnRectangleObject rectObj = new AnnRectangleObject();
   rc.Offset(20, 20);
   rectObj.Bounds = rc;
   rectObj.Pen = new AnnPen(Color.Red, new AnnLength(3, AnnUnit.Pixel));
   rectObj.Name = "New Rectangle";
   obj.Container.Objects.Add(rectObj);
}