Sub New()

        ' This call is required by the designer.
        InitializeComponent()

        Dim currentLanguageTagger As CustomSqlTagger = New CustomSqlTagger(Me.RadSyntaxEditor1.SyntaxEditorElement)
        Me.RadSyntaxEditor1.TaggersRegistry.RegisterTagger(currentLanguageTagger)

    End Sub

    Public Class CustomSqlTagger
        Inherits Telerik.WinForms.Controls.SyntaxEditor.Taggers.SqlTagger

        Public Sub New(editor As RadSyntaxEditorElement)
            MyBase.New(editor)

        End Sub
        Protected Overrides Function SplitIntoWords(value As String) As IList(Of String)
            Dim words As List(Of String) = New List(Of String)()
            Dim word As String
            Dim lastCharType As Integer = -1
            Dim startIndex As Integer = 0

            For i As Integer = 0 To value.Length - 1
                Dim charType As Integer = GetCharType(value(i))

                If charType <> lastCharType Then
                    word = value.Substring(startIndex, i - startIndex)
                    words.Add(word)
                    startIndex = i
                    lastCharType = charType
                End If
            Next

            word = value.Substring(startIndex, value.Length - startIndex)
            words.Add(word)
            Return words
        End Function
        Friend Shared Function GetCharType(ByVal c As Char) As Integer
            If c = "#"c Then
                Return 0
            End If
            If c = "_"c Then
                Return 0
            End If

            If Char.IsWhiteSpace(c) Then
                Return 1
            End If

            If Char.IsPunctuation(c) OrElse Char.IsSymbol(c) Then
                Return 2
            End If

            Return 0
        End Function
    End Class