Private Sub web_DocumentCompleted(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles _
  web.DocumentCompleted
 
        If web.Url.ToString.Equals("http://www.test.de/film/finish") And count _
          < anzahl.Text Then
            count = count + 1
            NavFilm()
        End If
 
    End Sub

web.Navigate("http://www.test.de/film/start")
 
Do
            Application.DoEvents()
        Loop While web.ReadyState <> WebBrowserReadyState.Complete
        web.Refresh()
 
        Do
            Application.DoEvents()
        Loop While web.ReadyState <> WebBrowserReadyState.Complete
 
        web.Document.GetElementById("start").InvokeMember("click")