Public Overridable ReadOnly Property CurrentEditObject As AnnObject

Dim instance As AnnAutomation
Dim value As AnnObject
 
value = instance.CurrentEditObject

public virtual AnnObject CurrentEditObject {get;}

public:
virtual property AnnObject^ CurrentEditObject {
   AnnObject^ get();
}

Public Sub AnnAutomation_ChangePenToBlue(ByVal automation As AnnAutomation)
   ' check if an object is currently "selected"
   If Not automation.CurrentEditObject Is Nothing Then
      ' check if this object supports a pen
      If automation.CurrentEditObject.SupportsPen Then
         ' change its pen
         automation.BeginUndo()
         automation.CurrentEditObject.Pen = New AnnPen(Color.Blue, New AnnLength(2, AnnUnit.Pixel))
         automation.EndUndo()
         automation.Viewer.Invalidate(automation.CurrentEditObject.InvalidRectangle)
      End If
   End If
End Sub

public void AnnAutomation_ChangePenToBlue(AnnAutomation automation)
{
   // check if an object is currently "selected"
   if (automation.CurrentEditObject != null)
   {
      // check if this object supports a pen
      if (automation.CurrentEditObject.SupportsPen)
      {
         // change its pen
         automation.BeginUndo();
         automation.CurrentEditObject.Pen = new AnnPen(Color.Blue, new AnnLength(2, AnnUnit.Pixel));
         automation.EndUndo();
         automation.Viewer.Invalidate(automation.CurrentEditObject.InvalidRectangle);
      }
   }
}