title: how to exit a loop to another loop?
body: <p>Anyone know why I can not get a new word when the "for" loop reaches the limit?<br> 
  the intention is that the loop rotate every new word<br> 
  but something very wrong'm doing<br>
  ================================<br></p>
  
  <pre><code>Private Sub getWord()
          Static wordCount As Integer
          Dim txtLines As String()
          txtLines = TextBox1.Text.Split(CChar(vbCrLf))
  
          If (wordCount &lt; txtLines.Count) Then
              WebBrowser1.Navigate("http://www.bing.com/search?q=" &amp; txtLines(wordCount) &amp; "&amp;first=1&amp;FORM=PERE")
              wordCount = wordCount + 1
          End If
  
      End Sub
  
      Dim i As Integer
      Dim max As Integer = 40
  
      Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
          If i &gt;= max Then
              getWord()
          End If
  
          If (WebBrowser1.ReadyState = WebBrowserReadyState.Complete) Then
  
              For i As Integer = 1 To 40 Step 10
                  WebBrowser1.Navigate("http://www.bing.com/search?q=" &amp; txtLines(wordCount) &amp; "&amp;first=" &amp; i &amp; "&amp;FORM=PERE")
              Next
  
              Dim PageElement As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
              Dim lk As String
              For Each lks As HtmlElement In PageElement
                  lk = lks.GetAttribute("href")
                  ListBox1.Items.Add(lk)
              Next
          End If
      End Sub            
  </code></pre>