progress bar

[samobb]

Thank you CarlosTheJackal, it's working now.

[This message has been edited by samobb (edited 08-12-1999).]

[CarlosTheJackal]

'one the progress has finished exit sub
Heres the code i use,ive used it alot and its always worked.My browser is Webrowser1,and my Progressbar is pgb1

Private Sub WebBrowser1_ProgressChange(ByVal_ Progress As Long, ByVal ProgressMax As Long)
If pgb1.Value = pgb1.Max Then Exit Sub
'Exit sub when page is loaded
If ProgressMax = 0 Then Exit Sub
'Fixes strange errors i sometimes get
If Progress > ProgressMax Then Exit Sub
'sets the Progress Bar max to the size of the webpage
pgb1.Max = ProgressMax
pgb1.Value = Progress
End Sub
Then:
Private Sub WebBrowser1_DownloadBegin()
'reset progressbar
pgb1.Value = 0
End Sub

Thnx for your time,
CarlosTheJackal

[This message has been edited by CarlosTheJackal (edited 08-11-1999).]

[This message has been edited by CarlosTheJackal (edited 08-11-1999).]