Public Class PercentBar
    Inherits PictureBox
 
    Private m_Value As Integer = 0
    Private m_Font As New Font("Arial", 10)
 
    Protected Overrides Sub OnPaintBackground(ByVal pevent As  _
      System.Windows.Forms.PaintEventArgs)
        MyBase.OnPaintBackground(pevent)
 
        Dim g As Graphics = pevent.Graphics
        Dim o As String = m_Value.ToString & " %"
        Dim r As Rectangle = New Rectangle(0, 0, (pevent.ClipRectangle.Width / _
          100) * m_Value, pevent.ClipRectangle.Height)
        Dim h As Int16 = g.MeasureString(o, m_Font).Height / 2
        Dim w As Int16 = g.MeasureString(o, m_Font).Width / 2
        g.FillRectangle(Brushes.LawnGreen, r)
        g.DrawString(o, m_Font, Brushes.Black, pevent.ClipRectangle.Width / 2 - _
          w, pevent.ClipRectangle.Height / 2 - h)
    End Sub
 
    Public Property Value() As Integer
        Get
            Return m_Value
        End Get
        Set(ByVal value As Integer)
            m_Value = value
            Me.Invalidate()
        End Set
    End Property
End Class