Public Class Form1
    Private wbBrowser(2) As WebBrowser
 
    Private Sub Form1_Shown(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Shown
        Dim i As Int16
 
        For i = 0 To 2
            wbBrowser(i) = New WebBrowser()
            Me.Controls.Add(wbBrowser(i))
            wbBrowser(i).Left = i * 150
            'hier die wichtige Zeile
            AddHandler wbBrowser(i).ProgressChanged, AddressOf _
              AllBrowsers_ProgressChanged
            wbBrowser(i).Navigate("http://www.google.com/search?q=vb%20" & _
            i.ToString)
        Next
    End Sub
 
    Private Sub AllBrowsers_ProgressChanged(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.WebBrowserProgressChangedEventArgs)
        Dim wb As WebBrowser
        wb = DirectCast(sender, WebBrowser)
 
        Debug.Print("PC Event received from Browser for URL: " & _
          wb.Url.ToString & " Heruntergeladen: " & e.CurrentProgress & "bytes" & _
          "von insgesamt " & e.MaximumProgress & "bytes.")
 
    End Sub
End Class

Gru?,
Frank

FrankGrimm.net - Meine kleine Ecke des Webs