Public Event BeforeObjectChanged As EventHandler(Of AnnBeforeObjectChangedEventArgs)

Dim instance As AnnAutomation
Dim handler As EventHandler(Of AnnBeforeObjectChangedEventArgs)
 
AddHandler instance.BeforeObjectChanged, handler

public event EventHandler<AnnBeforeObjectChangedEventArgs> BeforeObjectChanged

public:
event EventHandler<AnnBeforeObjectChangedEventArgs^>^ BeforeObjectChanged

Public Sub AnnAutomation_BeforeObjectChanged(ByVal manager As AnnAutomationManager)
   ' subscribe to the BeforeObjectChanged of all automations
   For Each automation As AnnAutomation In manager.Automations
      AddHandler automation.BeforeObjectChanged, AddressOf automation_BeforeObjectChanged
   Next automation
End Sub
Private Sub automation_BeforeObjectChanged(ByVal sender As Object, ByVal e As AnnBeforeObjectChangedEventArgs)
   ' prevent changing the pen
   If e.ChangeType = AnnObjectChangedType.Pen Then
      e.Cancel = True
   End If
End Sub

public void AnnAutomation_BeforeObjectChanged(AnnAutomationManager manager)
{
   // subscribe to the BeforeObjectChanged of all automations
   foreach(AnnAutomation automation in manager.Automations)
      automation.BeforeObjectChanged += new EventHandler<AnnBeforeObjectChangedEventArgs>(automation_BeforeObjectChanged);
}
private void automation_BeforeObjectChanged(object sender, AnnBeforeObjectChangedEventArgs e)
{
   // prevent changing the pen
   if(e.ChangeType == AnnObjectChangedType.Pen)
      e.Cancel = true;
}