Public Overridable Sub Lock() 

Dim instance As AnnAutomation
 
instance.Lock()

public virtual void Lock()

public:
virtual void Lock(); 

Public Sub AnnAutomation_Lock(ByVal automation As AnnAutomation)
   ' first add a new object to the automation
   Dim rectObj As AnnRectangleObject = New AnnRectangleObject()
   rectObj.Bounds = New AnnRectangle(100, 100, 100, 100, AnnUnit.Pixel)
   rectObj.Pen = New AnnPen(Color.Blue, New AnnLength(1, AnnUnit.Pixel))
   rectObj.Brush = New AnnSolidBrush(Color.Yellow)
   automation.Container.Objects.Add(rectObj)
   automation.Viewer.Invalidate(rectObj.InvalidRectangle)
   ' make sure no objects are selected in the automation
   automation.SelectNone()

   ' see if we can lock or unlock the object (this should show a message informing you that no objects are currently selected (bring edited)
   LockUnlock(automation)

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

   ' see if we can lock or unlock the object (should show the password dialog to lock the object)
   LockUnlock(automation)

   ' see if we can lock or unlock the object (should show the password dialog to unlock the object)
   LockUnlock(automation)
End Sub

Private Sub LockUnlock(ByVal automation As AnnAutomation)
   ' first, check if we can lock the object
   If automation.CanLock Then
      ' lock this object
      automation.Lock()
   ElseIf automation.CanUnlock Then
      ' unlock this object
      automation.Unlock()
   Else
      MessageBox.Show("Cannot lock or unlock because no object is currently being edited (selected)")
   End If
End Sub

public void AnnAutomation_Lock(AnnAutomation automation)
{
   // first add a new object to the automation
   AnnRectangleObject rectObj = new AnnRectangleObject();
   rectObj.Bounds = new AnnRectangle(100, 100, 100, 100, AnnUnit.Pixel);
   rectObj.Pen = new AnnPen(Color.Blue, new AnnLength(1, AnnUnit.Pixel));
   rectObj.Brush = new AnnSolidBrush(Color.Yellow);
   automation.Container.Objects.Add(rectObj);
   automation.Viewer.Invalidate(rectObj.InvalidRectangle);
   // make sure no objects are selected in the automation
   automation.SelectNone();

   // see if we can lock or unlock the object (this should show a message informing you that no objects are currently selected (bring edited)
   LockUnlock(automation);

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

   // see if we can lock or unlock the object (should show the password dialog to lock the object)
   LockUnlock(automation);

   // see if we can lock or unlock the object (should show the password dialog to unlock the object)
   LockUnlock(automation);
}

private void LockUnlock(AnnAutomation automation)
{
   // first, check if we can lock the object
   if(automation.CanLock)
   {
      // lock this object
      automation.Lock();
   }
   else if(automation.CanUnlock)
   {
      // unlock this object
      automation.Unlock();
   }
   else
      MessageBox.Show("Cannot lock or unlock because no object is currently being edited (selected)");
}