Public Property ControlPoint As Thumb

Dim instance As AnnAutomationManager
Dim value As Thumb
 
instance.ControlPoint = value
 
value = instance.ControlPoint

public Thumb ControlPoint {get; set;}

public:
property Thumb^ ControlPoint {
   Thumb^ get();
   void set (    Thumb^ value);
}

Private Sub AnnAutomationManager_ControlPoint(ByVal manager As AnnAutomationManager)
   ' Use a thumb with red brush (alpha = 128)
   Dim cp As Thumb = New Thumb()
   cp.BorderBrush = Brushes.Black
   cp.BorderThickness = New Thickness(1.0)
   cp.Background = New SolidColorBrush(Color.FromArgb(128, 255, 0, 0))
   cp.Width = 12
   cp.Height = 12
   manager.ControlPoint = cp
   ' now, whenever you draw or select an object in this manager, this control point will be used
End Sub

private void AnnAutomationManager_ControlPoint(AnnAutomationManager manager)
{
   // Use a thumb with red brush (alpha = 128)
   Thumb cp = new Thumb();
   cp.BorderBrush = Brushes.Black;
   cp.BorderThickness = new Thickness(1.0);
   cp.Background = new SolidColorBrush(Color.FromArgb(128, 255, 0, 0));
   cp.Width = cp.Height = 12;
   manager.ControlPoint = cp;
   // now, whenever you draw or select an object in this manager, this control point will be used
}

private void AnnAutomationManager_ControlPoint(AnnAutomationManager manager)
{
   // Use a thumb with red brush (alpha = 128)
   Thumb cp = new Thumb();
   cp.BorderBrush = new SolidColorBrush(Colors.Black);
   cp.BorderThickness = new Thickness(1.0);
   cp.Background = new SolidColorBrush(Color.FromArgb(128, 255, 0, 0));
   cp.Width = cp.Height = 12;
   manager.ControlPoint = cp;
   // now, whenever you draw or select an object in this manager, this control point will be used
}

Private Sub AnnAutomationManager_ControlPoint(ByVal manager As AnnAutomationManager)
   ' Use a thumb with red brush (alpha = 128)
   Dim cp As Thumb = New Thumb()
   cp.BorderBrush = New SolidColorBrush(Colors.Black)
   cp.BorderThickness = New Thickness(1.0)
   cp.Background = New SolidColorBrush(Color.FromArgb(128, 255, 0, 0))
   cp.Width = 12
   cp.Height = 12
   manager.ControlPoint = cp
   ' now, whenever you draw or select an object in this manager, this control point will be used
End Sub