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