AnnEnumerateTextToken example for Visual Basic

Private Sub ExampleAnnEnumerateTextTokenTable(hObject As Long)

    RasterAnn.EnableFireEnumerateTextTokenTableEvent = True
    RasterAnn.AnnEnumerateTextToken

End Sub

Private Sub RasterAnn_OnEnumerateTextTokenTable(ByVal nTextTokenCount As Long, ByVal bstrToken As String, ByVal bstrDescription As String, ByVal bstrTokenString As String, ByVal TokenType As LTANNLib.AnnTokenTextType)

   If TokenType = ANN_TOKEN_TEXT Then
      bstrToken = "F"
      bstrDescription = "Company Name"
      bstrTokenString = "Your Company Name"
   Else
      bstrDescription = "Not ANN_TOKEN_TEXT"
   End If

   RasterAnn.StopFireEnumerateTextTokenTableEvent = False

End Sub