Public Overridable ReadOnly Property SupportsStroke As Boolean

Dim instance As AnnObject
Dim value As Boolean
 
value = instance.SupportsStroke

public virtual bool SupportsStroke {get;}

public:
virtual property bool SupportsStroke {
   bool get();
}

Private Sub AnnObjectBase_SupportsStroke(ByVal container As AnnContainer)
   For Each obj As AnnObject In container.Children
      If obj.SupportsStroke Then
         obj.Stroke = Colors.Blue
         obj.StrokeThickness = 1.0
      End If
      If obj.SupportsFill Then
         obj.Fill = Colors.White
      End If

      If TypeOf obj Is IAnnFont Then
         Dim font As IAnnFont = DirectCast(obj, IAnnFont)
         font.FontFamilyName = "Arial"
         font.FontSize = 10.0
         DirectCast(obj, IAnnText).Foreground = Colors.Red
      End If
   Next obj
End Sub

private void AnnObjectBase_SupportsStroke(AnnContainer container)
{
   foreach (AnnObject obj in container.Children)
   {
      if (obj.SupportsStroke)
      {
         obj.Stroke = Colors.Blue;
         obj.StrokeThickness = 1.0;
      }
      if (obj.SupportsFill)
         obj.Fill = Colors.White;

      if (obj is IAnnFont)
      {
         IAnnFont font = (obj as IAnnFont);
         font.FontFamilyName = "Arial";
         font.FontSize = 10.0;
         (obj as IAnnText).Foreground = Colors.Red;
      }
   }

}

private void AnnObjectBase_SupportsStroke(AnnContainer container)
{
   foreach (AnnObject obj in container.Children)
   {
      if (obj.SupportsStroke)
      {
         obj.Stroke = Colors.Blue;
         obj.StrokeThickness = 1.0;
      }
      if (obj.SupportsFill)
         obj.Fill = Colors.White;

      if (obj is IAnnFont)
      {
         IAnnFont font = (obj as IAnnFont);
         font.FontFamilyName = "Arial";
         font.FontSize = 10.0;
         (obj as IAnnText).Foreground = Colors.Red;
      }
   }

}

Private Sub AnnObjectBase_SupportsStroke(ByVal container As AnnContainer)
   For Each obj As AnnObject In container.Children
      If obj.SupportsStroke Then
         obj.Stroke = Colors.Blue
         obj.StrokeThickness = 1.0
      End If
      If obj.SupportsFill Then
         obj.Fill = Colors.White
      End If

      If TypeOf obj Is IAnnFont Then
         Dim font As IAnnFont = (TryCast(obj, IAnnFont))
         font.FontFamilyName = "Arial"
         font.FontSize = 10.0
         TryCast(obj, IAnnText).Foreground = Colors.Red
      End If
   Next obj

End Sub