[VB] Webbrowser + onclick functie

Hallo,

Ik heb in mijn VB programma een webbrowser, en nu wil ik als je op een link klikt, hij een functie in VB uitvoert. Ik heb nu dit gevonden op Google:

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Dim olink As HtmlElement
        Dim olinks As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")

        For Each olink In olinks
            olink.AttachEventHandler("onclick", AddressOf LinkClicked)
        Next
    End Sub

    Public editUserId As String
    Private Sub LinkClicked(ByVal sender As Object, ByVal e As EventArgs)
        Dim link As HtmlElement = WebBrowser1.Document.ActiveElement
        Dim lClass As String = link.GetAttribute("class")
        Dim lId As String = link.GetAttribute("id")

        MsgBox("Clicked")

        If lClass = "editUser" Then
            editUserId = lId
            editKlant.Show()
        End If

    End Sub

But this doesnt do the trick. Weet iemand het?