Private Sub AddLinkToPage(ByVal url As String)
If (WebBrowser1.Document IsNot Nothing) Then
With WebBrowser1.Document
Dim Elem As HtmlElement = .CreateElement("A")
Elem.SetAttribute("HREF", url)
Elem.InnerText = "Visit our web site for more details."
.Body.AppendChild(Elem)
End With
End If
End Sub