нужна помошь при компоненте webbrowser, progressbar

[i'm pissed]

значит я progressbar связал вот таким кодом

Private Sub brwWebBrowser_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
If Progress = -1 Then ProgressBar1.Value = 100
If Progress > 0 And ProgressMax > 0 Then
ProgressBar1.Value = Progress * 100 / ProgressMax
End If
Exit Sub
End Sub



НАдо чтобы еще выводилось в процентах.
ПОмогите

[FaKk2]

Надо чтоб числа посередине прогресс бара шли?

[Amed]

Можно ещё поверх прогрессбара кинуть Label1 с Align=Center:

Label1.Caption=ProgressBar1.Value & "%"