Status Bar w/ progress bar

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?

mabey Progress is an higher value then ProgressMax?

Try This:

Code:

---

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 ->

Code:

---

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.

Code:

---

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

---

Thank you all so much, you saved my butt.