如何使用VB.Net在SHDocVw.InternetExplorer中实现IDocHostShowUI？

Question

我正在尝试捕获警报消息。通过实现IDocHostShowUI ShowMessage方法，它适用于AxWebBrowser控件。这是代码

Dim oleObject As IOleObject = AxWebBrowser1.GetOcx()
If oleObject IsNot Nothing Then oleObject.SetClientSite(Me)

但它不适用于SHDocVw.InternetExplorer。这是我试过的代码

 Dim oleObject As IOleObject = ie.Document
 If oleObject IsNot Nothing Then oleObject.SetClientSite(Me)

任何人都可以帮我实现SHDocVw.InternetExplorer。