AnnTextExpandTokens example for Visual Basic

Private Sub ExampleAnnTextExpandToken(hObject As Long)
    Dim ObjectType As AnnObjectType
    Dim bTextExpandToken As Boolean

    RasterAnn.AnnGetType hObject
    ObjectType = RasterAnn.AnnType

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

    bTextExpandToken = RasterAnn.AnnTextExpandTokens(hObject)

    bTextExpandToken = Not bTextExpandToken

    RasterAnn.AnnTextExpandTokens(hObject) = bTextExpandToken

    If bTextExpandToken = True Then
    MsgBox "Text Expand Token"
    Else
    MsgBox "Text Not Expand Token"
    End If

End Sub