質問です。
http://www.ureader.com/message/975396.aspx
ここを参考にしながら、html要素のイベントにハンドルしようとしても、エラーが出てしまいます。
どうすればいいのでしょうか？

Private Sub currentWebBrowser_documentComplete(ByVal obj As Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_DocumentCompleteEvent)
Dim doc As mshtml.IHTMLDocument2 = CType(currentWebBrowser.Document, mshtml.IHTMLDocument2)
Dim anchors As mshtml.IHTMLElementCollection = doc.anchors

Try
For Each elem As mshtml.IHTMLElement2 In anchors
Dim htmlevents As mshtml.HTMLElementEvents2_Event = CType(elem, mshtml.HTMLElementEvents2_Event)
AddHandler htmlevents.onclick, AddressOf anchor_onclick
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub