Контекстное меню в контроле WebBrowser

[Крост]

Подскажите пожалуйста, как делать в своём контекстном меню пункты видимыми/невидимыми при вызове этого меню в WebBrowser на определённом месте, т.е. Как это у обычного IE - на ссылке кликнул - пункт "сохранить ярлык" доступен, не на ссылке - недоступен, как делать тоже самое?

Вот небольшой фрагмент, как я вызываю моё меню в WB.
Есть меню(неважно какое, это к примеру)

mnuMain
-->File
-->Open

Дальше код:

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

Dim WithEvents HtmlDoc as HtmlDocument
Option Explicit

Private sub Form_Load()
Webbrowser1.Navigate "about:blank"
End sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Set HtmlDoc=Webbrowser1.Document
End Sub

Private Function HtmlDoc_oncontextmenu() As Boolean
HtmlDoc_oncontextmenu = False
PopupMenu mnuMain
End Function


С уважением Андрей.