1.Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click 2.For Each Link As HtmlElement In WebBrowser1.Document.Links 3.Dim strText As String = Link.InnerText 4.If strText.IndexOf("Heal") > 0 Then 5.Link.InvokeMember("Click") 6.Exit Sub 7.End...