Status Bar w/ progress bar

[Cahlel]

ok, I want an internet status bar and this is my code:

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
ProgressBar1.Max = ProgressMax
ProgressBar1.Value = Progress
End Sub

now, when I run it, when the bar get's to the end, it give me an error that says:
run-time error 380
invalid proptery value

What am I doing wrong?

[D!SiLLUSiON]

mabey Progress is an higher value then ProgressMax?

[QWERTY]

Try This:

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
    If ProgressMax >= Progress Then
        ProgressBar1.Max = ProgressMax 
        ProgressBar1.Value = Progress 
    End if
End Sub

Post #509

Use a ->

On error resume next

Statement.

Kayoca is correct. The reason you get an error is because the Progressbar cannot go above a certain number. The Progress for the Webbrowser reads in thosands and can reach a million.

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
Label1.Caption = "Reading - " & Progress & " of " & ProgressMax & " bytes"
End Sub

Or using a Progressbar:

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
Progressbar1.Min = 0
Progressbar1.Max = ProgressMax
Progressbar1.Value = Progress
End Sub

[Cahlel]

Thank you all so much, you saved my butt.