Namespace System.Windows.Forms
    Class ProgressBarWithText
        Inherits ProgressBar
        Private _text As String = String.Empty
        
        Public Property TextValue() As String
            Get
                Return _text
            End Get
            Set(ByVal value As String)
                _text = value
            End Set
        End Property
        
        Protected Overloads Overrides Sub OnPaint(ByVal p As PaintEventArgs)
            'this.Refresh();
            Dim gr As Graphics = p.Graphics
            
            gr.DrawString(_text, SystemFonts.DefaultFont, Brushes.Black, New _
  PointF(Me.Width / 2 - (gr.MeasureString(_text, SystemFonts.DefaultFont).Width _
  / 2), Me.Height / 2 - (gr.MeasureString(_text, _
  SystemFonts.DefaultFont).Height / 2)))
            
            MyBase.OnPaint(p)
        End Sub
    End Class
End Namespace

---
Woher soll ich wissen, was ich denke, bevor ich h?re, was ich sage?