AnnTextRotate example for Visual Basic

Private Sub ExampleAnnTextRotate(hObject As Long)
    Dim ObjectType As AnnObjectType
    Dim Angle As Double

        RasterAnn.AnnGetType hObject
    ObjectType = RasterAnn.AnnType

    If ObjectType <> ANN_OBJECT_TEXT Then
    MsgBox "This Object is not a Text Object"
    End If

    Angle = RasterAnn.AnnTextRotate(hObject)

    Angle = Angle + TEXT_ROTATE_90

    RasterAnn.Flags = 0 'process only the specific object
    RasterAnn.AnnTextRotate(hObject) = Angle

End Sub