Zitat:

(..)Zu dem Zweck kann man vor dem Navigate-Aufruf eine modulglobal definierte Datetime-Variable mit der aktuellen Zeit füllen. Im DocumentCompleted-Event wird diese Zeit gelöscht (Variable auf Nothing setzen). Der Timer prüft im Tick-Event, ob eine Startzeit gegeben ist und bestimmt ggf. die Differenz zwischen aktueller Zeit und Startzeit. Ist diese Differenz zu groß, wird der Navigate-Aufruf erneut ausgeführt.

    Private Sub Sub_Folge_Url_navigieren_(Url1_Sub_Weiterleitung_ As String)
        Try
            Web_Url1.Navigate(New Uri(Url1_Sub_Weiterleitung_))
            While Web_Url1.Tag <> ""
                Application.DoEvents()
            End While
        Catch Erklaerung1_ As System.UriFormatException
            Return
        End Try
 
    End Sub
 
    Private Sub Web_Url1_Navigated(sender As Object, e As _
      WebBrowserNavigatedEventArgs) Handles
              Web_Url1.Navigated
 
        Url1_Eingabe.Text = Web_Url1.Url.ToString()
 
    End Sub
 
    Private Sub Web_Url1_DocumentCompleted(sender As Object, e As _
      WebBrowserDocumentCompletedEventArgs)
         Handles Web_Url1.DocumentCompleted
        AddHandler CType(sender, WebBrowser).Document.Window.Error,
            AddressOf Window_Error
        Web_Url1.Tag = ""
 
    End Sub