'引用Microsoft HTML OBject Library 
'加入webbrowser控件 
'在窗体上自定义一个菜单(设为MyMenu) 
'复制下面代码，运行即可禁止右键菜单了 

'====窗体代码==== 
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 mymenu '弹出自定义菜单 
End Sub