Fast Colored TextBox for Syntax Highlighting

Imports FastColoredTextBoxNS
Imports System
Imports System.Collections.Generic
Imports System.Drawing

Namespace TesterVB
    Public Class InvisibleCharsRenderer
        Inherits Style

        Private pen As Pen

        Public Sub New(pen As Pen)
            Me.pen = pen
        End Sub

        Public Overrides Sub Draw(gr As Graphics, position As Point, range As Range)
            Dim tb As FastColoredTextBox = range.tb
            Using brush As Brush = New SolidBrush(Me.pen.Color)
                For Each place As Place In CType(range, IEnumerable(Of Place))
                    Dim c As Char = tb(place).c
                    If c <> " " Then
                        GoTo IL_BC
                    End If
                    Dim point As Point = tb.PlaceToPoint(place)
                    point.Offset(tb.CharWidth / 2, tb.CharHeight / 2)
                    gr.DrawLine(Me.pen, point.X, point.Y, point.X + 1, point.Y)
                    If tb(place.iLine).Count - 1 = place.iChar Then
                        GoTo IL_BC
                    End If
                    Continue For
IL_BC:
                    If tb(place.iLine).Count - 1 = place.iChar Then
                        point = tb.PlaceToPoint(place)
                        point.Offset(tb.CharWidth, 0)
                        gr.DrawString("¶", tb.Font, brush, point)
                    End If
                Next
            End Using
        End Sub
    End Class
End Namespace