Какой способ рисования в 2D лучше?

Public Class UserProgressBar
    Inherits System.Windows.Forms.Control ' наследуем Control
    Dim min As UInteger
    Dim max As UInteger
    Dim CurVal As UInteger
    Dim orient As OrientationEnum
    Dim UText As String
    Dim Pimg As Bitmap
    Dim Gr As Graphics
    Dim Fclr As Color
    Dim WrText As WTenum
    Dim FS As FillStyleEnum
 
#Region "PublicProperties"
    Public Property Minimum() As UInteger
        Get
            Minimum = min
        End Get
        Set(ByVal value As UInteger)
            min = value
            DrawProgress()
        End Set
    End Property
    Public Property Maximum() As UInteger
        Get
            Maximum = max
        End Get
        Set(ByVal value As UInteger)
            max = value
            DrawProgress()
        End Set
    End Property
    Public Property CurrentValue() As UInteger
        Get
            CurrentValue = CurVal
        End Get
        Set(ByVal value As UInteger)
            CurVal = value
            DrawProgress()
        End Set
    End Property
    Public Property ProgressOrientation() As OrientationEnum
        Get
            ProgressOrientation = orient
        End Get
        Set(ByVal value As OrientationEnum)
            orient = value
            DrawProgress()
        End Set
    End Property
    Public Property FillColor() As Color
        Get
            FillColor = Fclr
        End Get
        Set(ByVal value As Color)
            Fclr = value
            DrawProgress()
        End Set
    End Property
    Public Property WrittenText() As WTenum
        Get
            WrittenText = WrText
        End Get
        Set(ByVal value As WTenum)
            WrText = value
            DrawProgress()
        End Set
    End Property
    Public Property FillStyle() As FillStyleEnum
        Get
            FillStyle = FS
        End Get
        Set(ByVal value As FillStyleEnum)
            FS = value
            DrawProgress()
        End Set
    End Property
#End Region
 
#Region "Enums"
    Public Enum OrientationEnum As Integer
        Horisontal = 0
        Vertical = 1
    End Enum
    Public Enum WTenum As Integer
        Text = 0
        Percentage = 1
        PercentageWithSumbol = 2
        PartOfOne = 3
        None = 4
    End Enum
    Public Enum FillStyleEnum As Integer
        Solid = 0
        Texture = 1
    End Enum
#End Region
 
    Public Sub New()
        ' задаем значения по-умолчанию и отрисовываем
        Me.Minimum = 0
        Me.Maximum = 1000
        Me.CurrentValue = 0
        Me.WrText = WTenum.PercentageWithSumbol
        Me.ProgressOrientation = OrientationEnum.Horisontal
        Me.Size = New Size(200, 20)
        Me.BackgroundImageLayout = ImageLayout.Stretch
        Me.FillColor = Color.Green
        Me.BackColor = SystemColors.Window
        Me.FillStyle = FillStyleEnum.Solid
        DrawProgress()
    End Sub
    Private Sub DrawProgress()
        Try
            Me.Pimg = New Bitmap(Me.Width, Me.Height, Imaging.PixelFormat.Format32bppArgb)
            Gr = Graphics.FromImage(Pimg)
            Gr.CompositingQuality = Drawing2D.CompositingQuality.HighQuality
            Gr.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAliasGridFit
            'создаем кисть с учетом стиля заливки и ориентации
            Dim br As Brush
            If Me.FillStyle = FillStyleEnum.Solid Then
                br = New SolidBrush(Me.FillColor)
            Else
                If Me.ProgressOrientation = OrientationEnum.Horisontal Then
                    br = Brushes.AliceBlue
                Else
                    br = Brushes.AliceBlue
                End If
            End If
            ' объявляем прясоугольник заполненной области и вычисляем его размеры с учетом состояния свойства ProgressOrientation
            Dim FillRect As Rectangle
            If Me.ProgressOrientation = OrientationEnum.Horisontal Then
                FillRect = New Rectangle(0, 0, CInt(CurVal / max * Me.Width), Me.Height)
            Else
                FillRect = New Rectangle(0, Me.Height - CInt(CurVal / max * Me.Height), Me.Width, CInt(CurVal / max * Me.Height))
            End If
            ' заливаем прямоугольник
            Gr.FillRectangle(br, FillRect)
            ' формируем строку для рисования с учетом свойства WrittenText
            Dim s As String = String.Empty
            Select Case WrittenText
                Case Is = WTenum.None
                    s = String.Empty
                Case Is = WTenum.PartOfOne
                    s = CInt(CurVal / max)
                Case Is = WTenum.Percentage
                    s = CInt(CurVal / max * 1000)
                Case Is = WTenum.PercentageWithSumbol
                    '   s = CInt(CurVal / max * 100.0) & "%"
                Case Is = WTenum.Text
                    s = Me.Text
            End Select
            ' форматируем строку ( выравнивание - в центр области, поворот - по свойству ProgressOrientation)
            Dim drawformat As New StringFormat
            drawformat.Alignment = StringAlignment.Center
            drawformat.LineAlignment = StringAlignment.Center
            If Me.ProgressOrientation = OrientationEnum.Vertical Then drawformat.FormatFlags = StringFormatFlags.DirectionVertical
            ' рисуем строку
            Gr.DrawString(s, Me.Font, New SolidBrush(Me.ForeColor), New Rectangle(0, 0, Me.Width, Me.Height), drawformat)
            Me.BackgroundImage = Pimg
        Catch
        End Try
    End Sub
 
    ' в этом событии отслеживаются события контрола, при которых нам потребуется его перерисовка
    Private Sub UserProgressBar_Changed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize, Me.ForeColorChanged, Me.FontChanged, Me.BackColorChanged
        Me.Pimg = New Bitmap(Me.Width, Me.Height, Imaging.PixelFormat.Format32bppArgb)
        DrawProgress()
    End Sub
End Class

Imports System.Drawing.Drawing2D
#Region "UICheckBox"
Public Class UICheckBox
    'by Gelo123321 
    Inherits Control
    Public Checked As Boolean
    Dim B As Bitmap, G As Graphics
    Dim C1, C2, C3, C4 As Color, P1, P2 As Pen, B1, B2, B5, B6 As Brush
    Sub New()
        SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint, True)
        C1 = Color.FromArgb(209, 209, 209) 'Колір Enable[on]
        C2 = Color.FromArgb(155, 205, 255) 'Колір Disable[off]
        C3 = Color.FromArgb(233, 233, 233) 'Колір кордонів[default]
        C4 = Color.FromArgb(255, 255, 255) 'Колір кордонів  при наведенні
        B5 = New SolidBrush(Color.FromArgb(100, 100, 100)) 'Колір тексту
        B6 = New SolidBrush(Color.FromArgb(25, 25, 25))
        Font = New Font("Calibri", 10.0F) 'Шрифт тексту
        P1 = New Pen(C3)
        P2 = New Pen(C4)
        B1 = New SolidBrush(C1)
        B2 = New SolidBrush(C2)
    End Sub
    Private State, St As Integer
    Protected Overrides Sub OnMouseLeave(e As EventArgs)
        St = 0
        Invalidate()
    End Sub
    Protected Overrides Sub OnMouseEnter(e As EventArgs)
        St = 1
        Invalidate()
    End Sub
    Protected Overrides Sub OnMouseClick(e As MouseEventArgs)
        If State = 0 Then
            State = 1
        Else : State = 0
        End If
        Invalidate()
    End Sub
    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        B = New Bitmap(Width, Height)
        G = Graphics.FromImage(B)
        G.FillRectangle(B1, ClientRectangle)
        G.FillRectangle(B1, 3, 3, 14, 14)
        G.DrawLine(P1, 2, 2, 17, 2)
        G.DrawLine(P1, 17, 17, 2, 17)
        G.DrawLine(P1, 2, 17, 2, 2)
        G.DrawLine(P1, 17, 2, 17, 17)
        G.DrawString(Text, Font, B5, 20, 0)
        Select Case State
            Case 0 'On Click
                G.FillRectangle(B1, 3, 3, 14, 14)
                G.DrawString(Text, Font, B5, 20, 0)
                Checked = False
            Case 1 'Off Click
                G.FillRectangle(B2, 3, 3, 14, 14)
                G.DrawString(Text, Font, B6, 20, 0)
                Checked = True
        End Select
        Select Case St
            Case 0 'Mouse Leave
                G.DrawLine(P1, 2, 2, 17, 2)
                G.DrawLine(P1, 17, 17, 2, 17)
                G.DrawLine(P1, 2, 17, 2, 2)
                G.DrawLine(P1, 17, 2, 17, 17)
            Case 1 'Mouse Enter
                G.DrawLine(P2, 2, 2, 17, 2)
                G.DrawLine(P2, 17, 17, 2, 17)
                G.DrawLine(P2, 2, 17, 2, 2)
                G.DrawLine(P2, 17, 2, 17, 17)
        End Select
        Dim S As SizeF = G.MeasureString(Text, Font)
        Me.Width = S.Width + 20
        Me.Height = 20
        e.Graphics.DrawImage(B, 0, 0)
        G.Dispose()
        B.Dispose()
    End Sub
    Protected Overrides Sub OnPaintBackground(ByVal e As PaintEventArgs)
    End Sub
End Class
#End Region