It's odd that you can't add the webbrowser control at design time. Assuming, though, that you have it declared withevents as wb, as I did, you can just modify that last sub as follows:
Private Sub webbrowser_DownloadBegin(ByVal sender As Object, ByVal e As System.EventArgs) Handles wb.DownloadBegin
doc = DirectCast(webbrowser.Document, mshtml.HTMLDocument)
AddHandler DirectCast(doc, mshtml.HTMLDocumentEvents_Event).onmouseover, AddressOf onmouseover
End Sub