WebBrowser 加载网页,该怎么处理

WebBrowser 加载网页

   请教高手,有没有办法可以使WebBrowser控件完全加载完成后,在开始向后循环

   注:如果这条网址一直打不开,程序在大于20秒后在开始循环下一条

先谢谢高手了                            
[解决办法]
在按钮事件里让webBrowser只加载第一个网址，并将i变量作为窗体类的成员变量

然后在WebBrowse_DocumetCompleted事件里判断当前网址是否加载完成，如果加载完成，则再加载下一个网址
   Private i As Integer
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If (ListView1.Items.Count > 0) Then
            Dim url As String = Me.ListView1.Items(0).Text
            i = 0
            WebBrowser1.Navigate(url)
        End If
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        While (WebBrowser1.IsBusy) '加载中...
            Application.DoEvents()
            System.Threading.Thread.Sleep(10)
        End While

        i = i + 1
        If (ListView1.Items.Count > i) Then
            Dim url As String = Me.ListView1.Items(i).Text
            WebBrowser1.Navigate(url)
        End If

    End Sub

[解决办法]
加载下一个网址前，别忘了调用你的
gethtml() '用源码中查找所需信息