my Site. Hi This code wil help you
Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
If e.CurrentProgress = -1 Then
ProgressBar1.Maximum = 100
ProgressBar1.Value = 100
Else
ProgressBar1.Maximum = e.MaximumProgress
ProgressBar1.Value = e.CurrentProgress
End If
End Sub