Public Overridable ReadOnly Property CanRotate As Boolean

Dim instance As AnnAutomation
Dim value As Boolean
 
value = instance.CanRotate

public virtual bool CanRotate {get;}

public:
virtual property bool CanRotate {
   bool get();
}

Public Sub AnnAutomation_CanRotate(ByVal automation As AnnAutomation)
   ' check whether we can use the rotate mode at this time
   If automation.CanRotate Then
      If automation.Rotate Then
         automation.Rotate = False
         ' now clicking and dragging on the cobject currently being edited will move it
      Else
         automation.Rotate = True
         ' now clicking and dragging on the object currently being edited will rotate it
      End If
   End If
End Sub

public void AnnAutomation_CanRotate(AnnAutomation automation)
{
   // check whether we can use the rotate mode at this time
   if(automation.CanRotate)
   {
      if(automation.Rotate)
      {
         automation.Rotate = false;
         // now clicking and dragging on the cobject currently being edited will move it
      }
      else
      {
         automation.Rotate = true;
         // now clicking and dragging on the object currently being edited will rotate it
      }
   }
}