Пояснить код оптимизации прорисовки пользовательского контрола

Partial Public Class UserControl1
    Inherits UserControl
    Protected defaultRenderer As Renderer  'Внутренние переменные класса
    Private m_renderer As Renderer 'Переменные свойств
    'Конструктор класса
    Public Sub New()
        'Инициализация
        InitializeComponent()
        'Создание рендерера по умолчанию
        Me.defaultRenderer = New DefaultRenderer()
        Me.defaultRenderer.uctrl = Me
    End Sub
    'Делегат события "Перерисовка элемента управления"
    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        Dim _rc As New Rectangle(30, 30, 300, 150)
        Me.defaultRenderer.DrawRectangle(e.Graphics, _rc)                  'рисуем прямоугольник
    End Sub
End Class
Public Class Renderer 'класс рендеринга элемента управления
    Private m_uctrl As UserControl1 = Nothing 'Внутренняя переменная свойства Управление прорисовкой
    Public Property uctrl() As UserControl1  'Свойство для управления прорисовкой
        Get
            Return Me.m_uctrl
        End Get
        Set(ByVal value As UserControl1)
            Me.m_uctrl = value
        End Set
    End Property
    'виртуальный метод
    Public Overridable Function DrawRectangle(ByVal gr As Graphics, ByVal rc As Rectangle) As Boolean
        Return False
    End Function
End Class
'Класс рендеринга элемента управления по-умолчанию 
Public Class DefaultRenderer
    Inherits Renderer
    'рисуем прямоугольник
    Public Overrides Function DrawRectangle(ByVal gr As Graphics, ByVal rc As Rectangle) As Boolean
        gr.DrawRectangle(Pens.Red, rc)
        Return True
    End Function
End Class

    'виртуальный метод
    Public Overridable Function DrawRectangle(ByVal gr As Graphics, ByVal rc As Rectangle) As Boolean
        Return False
    End Function