Private ReadOnly brushtextshadow As New SolidBrush(Color.White)
Private ReadOnly brushtext As New SolidBrush(SystemColors.ControlText)
 
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
    MyBase.OnPaint(e)
 
    Dim offset As Integer = 0
    If ProgressBarRenderer.IsSupported Then
        ProgressBarRenderer.DrawHorizontalBar(e.Graphics, Me.ClientRectangle)
        ProgressBarRenderer.DrawHorizontalChunks(e.Graphics, New Rectangle(1, _
          1, (Width - 2) * (Value / 100), Height - 2))
    Else
        e.Graphics.Clear(SystemColors.ControlLightLight)
        Dim rect As New Rectangle(1, 1, (Me.Value / 100) * (Me.Width - 2), _
          Me.Height - 4)
        e.Graphics.FillRectangle(New SolidBrush(SystemColors.Highlight), rect)
        offset = 1
    End If
 
    Dim ef As SizeF = e.Graphics.MeasureString(Me.Value & "%", Me.Font)
    Dim num As Integer = Math.Round((Me.Width / 2) - (ef.Width / 2))
    Dim num2 As Integer = Math.Round((Me.Height / 2) - (ef.Height / 2))
    e.Graphics.DrawString(Me.Value & "%", Me.Font, brushtextshadow, num, num2 - _
      1 - offset)
    e.Graphics.DrawString(Me.Value & "%", Me.Font, brushtextshadow, num, num2 + _
    1 - offset)
    e.Graphics.DrawString(Me.Value & "%", Me.Font, brushtextshadow, num - 1, _
    num2 - offset)
    e.Graphics.DrawString(Me.Value & "%", Me.Font, brushtextshadow, num + 1, _
    num2 - offset)
    e.Graphics.DrawString(Me.Value & "%", Me.Font, brushtext, num, num2 - _
    offset)
 
End Sub