Как отменить контекстное меню WebBrowsere

[[Zeus]]

Привет!
Делаю такой код:

Код: Выделить всё

  Dim WithEvents mDoc As HTMLDocument
  ...
  set mDoc=WebBrowser1.Document
  ....
  Private Function mDoc_oncontextmenu() As Boolean
    On Error Resume Next
    mDoc_oncontextmenu = False
    If Err <> 0 Then Err.Clear
  End Function


Все работает до тех пор пока не загружается страница с фреймами. После после загрузки такой страницы событие на контекстное меню не срабатывает. Кто нить встречался с такой проблемой? Вообще такое можно обойти как нить?