vb很难完成
webbrowser可以QueryInterface出ICustomDoc接口,然后用ICustomDoc::SetUIHandler安装IDocHostUIHandler 借口,编程实现IDocHostUIHandler::ShowContextMenu接口即可
IHTMLElement *pElem;
HRESULT hr;hr = pdispObject->QueryInterface(IID_IHTMLElement, (void**)pElem);
if(SUCCEEDED (hr))
   {
   BSTR bstr;
   pElem->get_tagName(bstr);
   USES_CONVERSION;
   ATLTRACE("TagName:%s\n", OLE2T(bstr));
   SysFreeString(bstr);
   pElem->Release();
   }