AnnTextPointerFixed example for Visual Basic

Private Sub ExampleAnnTextPointerFixed(hObject As Long)
    Dim ObjectType As AnnObjectType
    Dim bTextPointerFixed As Boolean

     RasterAnn.AnnGetType hObject
    ObjectType = RasterAnn.AnnType

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

    bTextPointerFixed = RasterAnn.AnnTextPointerFixed(hObject)

    If bTextPointerFixed = True Then
    bTextPointerFixed = False
    Else
    bTextPointerFixed = True
    End If

    RasterAnn.AnnTextPointerFixed(hObject) = bTextPointerFixed

End Sub