Private Sub DrawProgressText(ByVal pb As ProgressBar, ByVal str As String)
    pb.Refresh()
    Using gr As Graphics = pb.CreateGraphics()
        gr.DrawString(str, SystemFonts.DefaultFont, Brushes.Black, New PointF( _
  pb.Width / 2 - (gr.MeasureString(str, SystemFonts.DefaultFont).Width / 2), _
  pb.Height / 2 - (gr.MeasureString(str, SystemFonts.DefaultFont).Height / 2)))
    End Using
End Sub

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