Как нарисовать количество блоков индикатора выполнения в VB.NET?

Progressbar имеет максимум 10.

Поэтому мне нужно нарисовать десять блоков без цвета заливки, прежде чем запускать прогресс.

Обновлено: добавлен код

Public Class MyProgressBar
Inherits ProgressBar

Public Sub New()
    Me.ForeColor = Color.Red
End Sub

Protected Overrides Sub OnPaint(e As PaintEventArgs)
    MyBase.OnPaint(e)
  For i as integer = 1 to 10
     Dim g As Graphics = e.Graphics
     Dim widthScale As Integer = Me.Width/10
     g.DrawRectangle(Pens,Me.Left+(i*widthScale ),Me.Top, Me.Width / 10, Me.Height)
    End For
End Sub
End Class

Я пытаюсь переопределить OnPaint (), но это не работает.