Public Overridable Sub ApplyEncryptor() 

Dim instance As AnnAutomation
 
instance.ApplyEncryptor()

public virtual void ApplyEncryptor()

public:
virtual void ApplyEncryptor(); 

Public Sub AnnAutomation_ApplyEncryptor(ByVal automation As AnnAutomation)
   ' first add a new encrypt object to the automation
   Dim encrypt As AnnEncryptObject = New AnnEncryptObject()
   encrypt.Bounds = New AnnRectangle(100, 100, 100, 100, AnnUnit.Pixel)
   encrypt.Key = 123
   automation.Container.Objects.Add(encrypt)
   automation.Viewer.Invalidate(encrypt.InvalidRectangle)
   ' make sure no objects are selected in the automation
   automation.SelectNone()

   ' see if we can apply the encryptor or decryptor (this should show a message informing you that no objects are currently selected (bring edited)
   EncryptDecrypt(automation)

   ' select (edit) the object we have just added
   automation.StartEditing(encrypt, False)

   ' see if we can apply the encryptor or decryptor (should apply the encryptor)
   EncryptDecrypt(automation)

   ' see if we can apply the encryptor or decryptor (should apply the decryptor)
   EncryptDecrypt(automation)
End Sub

Private Sub EncryptDecrypt(ByVal automation As AnnAutomation)
   ' first, check if we can apply the encryptor or decryptor
   If automation.CanApplyEncryptor Then
      ' apply the encryptor
      automation.ApplyEncryptor()
      MessageBox.Show("Encryptor has been applied")
   ElseIf automation.CanApplyDecryptor Then
      ' apply the decryptor
      automation.ApplyDecryptor()
      MessageBox.Show("Decryptor has been applied")
   Else
      MessageBox.Show("Cannot apply encryptor or decryptor because no encrypt object is currently being edited (selected)")
   End If
End Sub

public void AnnAutomation_ApplyEncryptor(AnnAutomation automation)
 {
   // first add a new encrypt object to the automation
   AnnEncryptObject encrypt = new AnnEncryptObject();
   encrypt.Bounds = new AnnRectangle(100, 100, 100, 100, AnnUnit.Pixel);
   encrypt.Key = 123;
   automation.Container.Objects.Add(encrypt);
   automation.Viewer.Invalidate(encrypt.InvalidRectangle);
   // make sure no objects are selected in the automation
   automation.SelectNone();

   // see if we can apply the encryptor or decryptor (this should show a message informing you that no objects are currently selected (bring edited)
   EncryptDecrypt(automation);

   // select (edit) the object we have just added
   automation.StartEditing(encrypt, false);

   // see if we can apply the encryptor or decryptor (should apply the encryptor)
   EncryptDecrypt(automation);

   // see if we can apply the encryptor or decryptor (should apply the decryptor)
   EncryptDecrypt(automation);
}

private void EncryptDecrypt(AnnAutomation automation)
{
   // first, check if we can apply the encryptor or decryptor
   if(automation.CanApplyEncryptor)
   {
      // apply the encryptor
      automation.ApplyEncryptor();
      MessageBox.Show("Encryptor has been applied");
   }
   else if(automation.CanApplyDecryptor)
   {
      // apply the decryptor
      automation.ApplyDecryptor();
      MessageBox.Show("Decryptor has been applied");
   }
   else
      MessageBox.Show("Cannot apply encryptor or decryptor because no encrypt object is currently being edited (selected)");
}