Dim navi As Boolean = False

Dim x As Integer
 
            For x = 0 To anzahl.Text
 
                web.Navigate("http://www.test.de/film/start")
 
                Do
                    Application.DoEvents()
                Loop While web.IsBusy
 
                web.Document.GetElementById("start").InvokeMember("click")
 
                Do
                    Application.DoEvents()
                Loop While web.IsBusy
 
                navi = False
 
                Do
                    Application.DoEvents()
                Loop While navi = False
 
                x = x + 1
 
            Next

Private Sub web_Navigating(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles web.Navigating
 
        navi = True
 
    End Sub