Private Sub AddUrlToTooltip()
If (WebBrowser1.Document IsNot Nothing) Then
With WebBrowser1.Document
For Each Elem As HtmlElement In .GetElementsByTagName("IMG")
If (Elem.Parent.TagName.Equals("A")) Then
Dim AltStr As String = Elem.GetAttribute("ALT")
If (Not (AltStr Is Nothing) And (AltStr.Length <> 0)) Then
Elem.SetAttribute("ALT", AltStr & " - points to " & Elem.Parent.GetAttribute("HREF"))
Else
Elem.SetAttribute("ALT", "Points to " & Elem.Parent.GetAttribute("HREF"))
End If
End If
Next
End With
End If
End Sub