Public Overridable Sub Lock( _
   ByVal password As String _
) 

Dim instance As AnnObject
Dim password As String
 
instance.Lock(password)

public virtual void Lock( 
   string password
)

public:
virtual void Lock( 
   String^ password
) 

Public Sub AnnObject_Lock(ByVal obj As AnnObject, ByVal password As String)
   If obj.IsLocked Then
      MessageBox.Show("Object is locked. It will be unlocked.")
      If String.Compare(password, obj.Password, False) <> 0 Then
         MessageBox.Show("Invalid password!!")
      Else
         obj.Unlock(password)
      End If
   Else
      MessageBox.Show("Object was not locked. It will be locked now.")
      obj.Lock(password)
   End If
End Sub

public void AnnObject_Lock(AnnObject obj, string password)
{
   if(obj.IsLocked)
   {
      MessageBox.Show("Object is locked. It will be unlocked.");
      if(string.Compare(password, obj.Password, false) != 0)
         MessageBox.Show("Invalid password!!");
      else
         obj.Unlock(password);
   }
   else
   {
      MessageBox.Show("Object was not locked. It will be locked now.");
      obj.Lock(password);
   }
}