حذف منوی کلیک راست از وب بروزر

[ameri110]

Option Explicit
Dim CustomWB As WBCustomizer 'Deceler the CustomWB
Private Sub Form_Load()
Set CustomWB = New WBCustomizer
With CustomWB
.EnableContextMenus = False 'Disable The Menu
.EnableAllAccelerators = True
Set .WebBrowser = WebBrowser1
End With
WebBrowser1.Navigate "www.google.com"
CustomWB.EnableContextMenus = False
End Sub