New TextHighlighterTheme (gb.eval.highlight)

Dim hTextHighlighterTheme As TextHighlighterTheme
hTextHighlighterTheme = New TextHighlighterTheme ( ) [ As "EventName" ]