Progress bar status

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