vb.net 网页加载完成判断

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        WebBrowser1.ScriptErrorsSuppressed = True '网页错误提示 【屏蔽】
        WebBrowser1.Navigate("https://blog.csdn.net")
    End Sub
    Private Sub WebBrowser1_ProgressChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
        If (e.CurrentProgress > 0) And (e.MaximumProgress > 0) Then
        ElseElseIf WEBB1.ReadyState = WebBrowserReadyState.Complete Then '加载完成 判断
            TextBox1.Text = WebBrowser1.Document.Body.InnerText

        End If

    End Sub