Public Overridable Function CalculateRotateAngle() As Single

Dim instance As AnnObject
Dim value As Single
 
value = instance.CalculateRotateAngle()

public virtual float CalculateRotateAngle()

public:
virtual float CalculateRotateAngle(); 

Public Sub AnnObject_CalculateRotateAngle(ByVal obj As AnnObject)
   Dim angle As Single = obj.CalculateRotateAngle()
   Dim s As String = String.Format("The selected {0} has a rotate angle of {1}", obj.GetType().ToString(), angle)
   MessageBox.Show(s)
End Sub

public void AnnObject_CalculateRotateAngle(AnnObject obj)
{
   float angle = obj.CalculateRotateAngle();
   string s = string.Format("The selected {0} has a rotate angle of {1}", obj.GetType().ToString(), angle);
   MessageBox.Show(s);
}