Private Function LoadURL(ByVal sURL As String, ByVal Browser As WebBrowser, _
    ByVal Timeout As Integer) As Boolean
 
        Dim bResult As Boolean = True
        Dim vStart As Date
 
        With Browser
 
            ' URL übergeben
            Browser.Navigate(sURL)
            vStart = Now
 
            Do While .ReadyState <> WebBrowserReadyState.Complete
                ' Timeout ?
                My.Application.DoEvents()
                If DateDiff(DateInterval.Second, vStart, Now) > Timeout Then
                    bResult = False
                    Exit Do
                End If
            Loop
        End With
        bResult = True
 
        Return bResult
 
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        For i As Integer = 0 To 1000
            LoadURL("www.jappy.de", WebBrowser1, 5)
        Next
 
    End Sub