IE_NewWindow2がトラップしない

解決

---

皆さん助けてください。開発中どういうわけかトラップしていた
NewWindow2イベントがとらなくなりました。以下のような現象が
出てます。分かる方おられませんでしょうか。
・下記コードでOnQuitはとるがNewWindow2スルー
・WebBrowser(コンポーネント参照に変えて)だとNewWindow2とる


Option Explicit
Dim WithEvents IE1 As InternetExplorer
Private Sub Form_Load()
    Set IE1 = CreateObject("InternetExplorer.Application")
    IE1.Navigate "http://www.yahoo.co.jp/"
    IE1.Visible = True
End Sub
Private Sub IE1_NewWindow2(ppDisp As Object, Cancel As Boolean)
    MsgBox ""
End Sub
Private Sub IE1_OnQuit()
    MsgBox ""
End Sub

編集 削除

---

失礼！WinXPProSP2 VB6SP6です。

編集 削除

---

自己レスです。環境を変えたらトラップしました。
会社のコードをそのまま自宅で動かしただけで
開発環境自体は変わってないのですが。
単にIEがトラブってただけでしょうか？

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。