Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles Me.Load
      Me.ProgressBar1.Maximum = 0
      Me.ProgressBar1.Maximum = 100
  End Sub
 
  Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As _
    System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles _
    WebBrowser1.ProgressChanged
      Me.ProgressBar1.Value = CType((e.CurrentProgress / e.MaximumProgress) * _
      100, Integer)
  End Sub
 
  Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As _
    System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles _
    WebBrowser1.DocumentCompleted
      Me.ProgressBar1.Value = 0
  End Sub

    Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles _
      WebBrowser1.ProgressChanged
        Me.ProgressBar1.Value = CType((e.CurrentProgress / e.MaximumProgress) * _
        100, Integer)
    End Sub

__________________________________________________________
Wer Rechtschreibfehler findet, darf sie Behalten! =)