AnnInsertTokenTable example for Visual Basic

Private Sub ExampleAnnTextToken()
    RasterAnn.Token = "A"
    RasterAnn.Description = "Two Digit Month"
    RasterAnn.TokenString = " "
    RasterAnn.TokenType = ANN_TOKEN_DATE_MM

    RasterAnn.AnnInsertTokenTable

    RasterAnn.Token = "B"
    RasterAnn.Description = "Two Digit day"
    RasterAnn.TokenString = " "
    RasterAnn.TokenType = ANN_TOKEN_DATE_DD

    RasterAnn.AnnInsertTokenTable

    RasterAnn.Token = "C"
    RasterAnn.Description = "Two Digit day"
    RasterAnn.TokenString = " "
    RasterAnn.TokenType = ANN_TOKEN_DATE_YYYY

    RasterAnn.AnnInsertTokenTable

    RasterAnn.AnnDeleteTokenTable "B"

    RasterAnn.Token = "D"
    RasterAnn.Description = " "
    RasterAnn.TokenString = " "
    RasterAnn.TokenType = ANN_TOKEN_SEPARATOR

    RasterAnn.AnnClearTokenTable

End Sub