IE_NewWindow2がトラップしない

解決

mine 2005-10-31 23:28:42 No: 92358

皆さん助けてください。開発中どういうわけかトラップしていた
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

mine 2005-10-31 23:37:51 No: 92359

失礼！WinXPProSP2 VB6SP6です。

mine 2005-11-01 06:06:22 No: 92360

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