Why not just display the percentage in the progressbar itself? :)
Private Sub UpdatePBar()
Dim x As Single
Dim y As Single
Dim percentage As String = CType((ProgressBar1.Value / ProgressBar1.Maximum * 100), Integer).ToString & "%"
Dim gr As Graphics = ProgressBar1.CreateGraphics
Dim sz As SizeF = gr.MeasureString(percentage, ProgressBar1.Font, ProgressBar1.Width)
x = (ProgressBar1.Width / 2) - (sz.Width / 2)
y = (ProgressBar1.Height / 2) - (sz.Height / 2)
gr.DrawString(percentage, ProgressBar1.Font, Brushes.Black, x, y)
End Sub
Call this every time you update the progressbar. The only downside is that you need to call the Refresh method of the progressbar right before you call this, otherwise you get ugliness. :( It's assumed this code is in the form with the progressbar and the progressbar is named ProgressBar1. Change as necessary. :)