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