AnnRotateAngle example for Visual Basic

Private Sub ExampleAnnRotateAngle(hObject As Long)
    Dim szMsg As String
    Dim RadiansAngle As Double
    Dim DegreesAngle As Double

    RadiansAngle = RasterAnn.AnnRotateAngle(hObject)
    If (RasterAnn.AnnError <> 0)
          MsgBox "There is an error equal to =  " + Str(RasterAnn.AnnError)
          Exit Sub
    End if

    DegreesAngle = RadiansAngle * 180 / 3.1415926535

    MsgBox "Angle Rotation : Radians = " + Chr(RadiansAngle) + "  Degrees = " + Chr(DegreesAngle)

End Sub