如何禁止单击webbrowser中的所有链接？

Option Explicit
Private WithEvents bDoc As HTMLDocument

Private Function bDoc_onclick() As Boolean
    Dim obj As IHTMLElement
    Set obj = bDoc.parentWindow.event.srcElement
    If obj.tagName = "A" Then Exit Function
    bDoc_onclick = True
End Function

Private Sub Command1_Click()
    Dim w1 As String
    w1 = "<a href='http://www.csdn.com'>点击试试</a>"
    WB.Document.body.innerhtml = w1
    Set bDoc = WB.Document
End Sub

Private Sub Form_Load()
    WB.Navigate "about:blank"
End Sub