Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles _
      WebBrowser1.ProgressChanged
        ProgressBar1.Maximum = e.MaximumProgress
        ProgressBar1.Value = e.CurrentProgress
    End Sub