VB Code:
  1. Private Sub Webbowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles Webbrowser1.ProgressChanged

  2.     Progress1.Visible = True

  3.  
  4.     If e.MaximumProgress <> 0 And e.MaximumProgress >= e.CurrentProgress Then

  5.             Progress1.Value = Convert.ToInt32(100 * e.CurrentProgress / e.MaximumProgress)

  6.     Else

  7.         With Progress1

  8.             .Value = 0

  9.             .Visible = False

  10.         End With

  11.     End If

  12. End Sub
'Progress1 = name of the ProgressBar in the StatusBar.