Webbrowser 'Custom Right Click Menu' on Vista

i tried the 'Custom Right Click Menu' tutorial by wiz126

these are the codes

VB Code:

1. 'Must Add Microsoft HTML Object Library
2. Option Explicit
3. Public WithEvents HTML As HTMLDocument
5. Private Function HTML_oncontextmenu() As Boolean
6. HTML_oncontextmenu = False
7. PopupMenu mnu '<---Check the mnu to your own menu name
8. End Function
9.
10.Private Sub Form_Load()
11.WebBrowser1.Navigate "www.google.com"
12.End Sub
13.
14.Private Sub Form_Unload(Cancel As Integer)
15.Set HTML = Nothing
16.End Sub
17.Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, _
18.URL As Variant)
19.Set HTML = WebBrowser1.Document
20.End Sub
____

my problem is that it is not working and i don't know why.
am using windows Vista, has it got something to do with it?

What does "not working" mean?

Do you get an error?
Do you get nothing at all?
How are you attempting to run the PopUpMenu line?

yeah, am trying to run the popup line and it's not showing at all.
Nothing is shown when i press the right-click button

From where are you running the popupmenu code?

yes.
when i right-click on the mouse, menu was suppose to popup but nothing is coming

yes.
when i right-click on the mouse, the menu was suppose to popup but nothing is coming (with the code at line 7)