Webbrowser 'Custom Right Click Menu' on Vista

[jeffrey4u]

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?