请求VB.net高手-Webbrowser读取百度第二页以后的连接

第二页之前都显示正常
但是到第3也就执行一次不再往下执行了,不明白为什么

补充：代码我用1楼回答,有些长 
嗨,直接的网址百度不给发,下面的网址,去掉空格
http :// zxyzxy12321 .0fees. net/?p=10068 
问题已解决,见:
http://zxyzxy12321. 0fees .net/?p=10068
现在收手,分送人,随便来个回答的

答案：结果就是这样...

其他：Public Class Form1
    Dim a(10) As String
    Dim npage As Integer
    Dim KeyW As String
    Dim t As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        npage = 0
        KeyW = TextBox1.Text
        wb.Navigate("http://www.zhaoxi.net/zzzyk?word=" & KeyW & "&pn=" & 50)
    End Sub

    Private Sub wb_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles wb.DocumentCompleted
        If wb.ReadyState = WebBrowserReadyState.Interactive Then
            For i = 1 To 10
                t = wb.Document.GetElementById(i).OuterText
                a(i) = Split(t, Chr(13), 2)(0)
                t = ""
            Next
            For i = 1 To 10
                TextBox2.Text &= "第" & Format(npage / 10 + 1, "00") & "页,第" & Format(i, "00") & "条记录:" & a(i) & vbNewLine
            Next

        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        wb.Navigate("http://www.zhaoxi.net/zzzyk?word=" & KeyW & "&pn=" & npage)
        npage += 10
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        wb.Navigate("about:blank")
        npage = 0

    End Sub
End Class

上一个：VB.net 中， 输入“空格”的代码
下一个：关于vb.net中itemtemplate的问题（高手请入）