WebBrowser (active x) events

Hello
I've insertet an activeX control in zenon and selected the "Microsoft WebBrowser" control.
Set General -> Object name = "myBrowser"
When I open the picture containing the browser I use the VBA code:

VBA Code:

Public Sub InitBrowser()
Set dyn = ThisProject.DynPictures().Item("browserPic")
Set Elements = dyn.Elements()
For i = 1 To Elements.count()
Set Item = Elements.Item(i)
If Item.name = "myBrowser" Then
Set a = Item.AktiveX
If a.LocationURL = "" Then
a.Navigate "http://www.copadata.com/", Null, Null, Null, Null
End If
Exit Sub
End If
Next
End Sub

which navigates to copadata.com as it should, but when I click on a link on the page I would like to catch the BeforeNavigate2 event.
If I just adds the function it doesnt fire:

VBA Code:

Public Sub myBrowser_BeforeNavigate2(ByVal pDisp As Object, _
ByRef Url As Variant, _
ByRef Flags As Variant, _
ByRef TargetFrameName As Variant, _
ByRef PostData As Variant, _
ByRef Headers As Variant, _
ByRef Cancel As Boolean)
MsgBox "beforenavigate 1"
End Sub

Ive been searching the internet, and it seems that I need to create an object that catches the events like:

VBA Code:
Public WithEvents browserEvents As WebBrowser

- or -

VBA Code:
Dim WithEvents browserEvents As myBrowser

But i get the error: "Invalid attribute in Sub or function"
Any help would be greatly appreciated :) How do I catch the BeforeNavigate event?
Using 6.22
Best Regards
Brian

This is a migrated post! Originally posted on 14.09.2012 by user brc. Please be aware that information can be outdated.