Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim thaicreate As String = "https://www.thaicreate.com"
Me.webrowser1.Navigate(thaicreate)
End Sub
Private Sub webrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles webrowser1.DocumentCompleted
ListBox1.Items.Clear()
For Each ClientControl As HtmlElement In webrowser1.Document.Links
ListBox1.Items.Add(ClientControl.GetAttribute("href")) 'ค้นหา Href ทั่งหมด แล้วเอาผลรวมมาแสดง Listbox
Next
End Sub