Webbrowser屏蔽右键菜单,但自定义的菜单也弹不出了解决方法

Webbrowser屏蔽右键菜单,但自定义的菜单也弹不出了
Dim WithEvents M_Dom As MSHTML.HTMLDocument

Private Function M_Dom_oncontextmenu() As Boolean '屏蔽右键菜单
M_Dom_oncontextmenu = False
End Function

Private Sub Webbrowser1_DownloadComplete()
Set M_Dom = WebBrowser1.Document '好了，右键菜单没有了
Me.PopupMenu a11 '弹出自定义菜单(实际弹不出)
End Sub


问题是:原来的右键菜单可以禁止,但自定义的菜单无法弹出.
请高手帮忙解决谢谢.

------解决方案--------------------
应该在oncontextmenu事件中弹出自定义的菜单.
Dim WithEvents M_Dom As MSHTML.HTMLDocument 

Private Function M_Dom_oncontextmenu() As Boolean '屏蔽右键菜单 

Me.PopupMenu a11 '弹出自定义菜单
End Function 

Private Sub Webbrowser1_DownloadComplete() 
Set M_Dom = WebBrowser1.Document '好了，右键菜单没有了 
End Sub