Public Sub AnnAutomation_ImageDirtyChanged(ByVal manager As AnnAutomationManager)
   ' subscribe to the ImageDirtyChanged event of all automations
   For Each automation As AnnAutomation In manager.Automations
      AddHandler automation.ImageDirtyChanged, AddressOf automation_ImageDirtyChanged
   Next automation
End Sub

Private Sub automation_ImageDirtyChanged(ByVal sender As Object, ByVal e As EventArgs)
   Dim automation As AnnAutomation = CType(IIf(TypeOf sender Is AnnAutomation, sender, Nothing), AnnAutomation)
   If automation.ImageDirty Then
      MessageBox.Show("Image has changed and needs saving!")

      '
      ' add code to save the automation.Viewer.Image here
      '

      ' set the ImageDirty flag to false
      automation.ImageDirty = False
   Else
      MessageBox.Show("Image has been saved!")
   End If
End Sub

public void AnnAutomation_ImageDirtyChanged(AnnAutomationManager manager)
{
   // subscribe to the ImageDirtyChanged event of all automations
   foreach(AnnAutomation automation in manager.Automations)
      automation.ImageDirtyChanged += new EventHandler(automation_ImageDirtyChanged);
}

private void automation_ImageDirtyChanged(object sender, EventArgs e)
{
   AnnAutomation automation = sender as AnnAutomation;
   if(automation.ImageDirty)
   {
      MessageBox.Show("Image has changed and needs saving!");

      //
      // add code to save the automation.Viewer.Image here
      //

      // set the ImageDirty flag to false
      automation.ImageDirty = false;
   }
   else
      MessageBox.Show("Image has been saved!");
}