POPUPフォームを閉じるには (ID:91414)

名前

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

本文 Private ie As Object Private Sub UrlOpen_Click() Dim URL0 As String Dim time10 As Date '時刻格納用 Set ie = CreateObject("InternetExplorer.Application") URL0="http://******" ie.Visible = True ie.Navigate URL0 time10 = DateAdd("s", 10, Now()) '現在から１０秒後を計算 Do While ie.Busy = True 'ビジー、読み込み中の間 DoEvents If time10 < Now() Then '10秒経過したか？ MsgBox "タイムアウトです" Exit Sub End If Loop ie.Quit Set ie = Nothing End Sub ---------------- 上記のようなプログラムをくんでホームページをOPENさせているのですが 対象となるホームページがポップアップWindowを開いてしまいます、 上記のプログラムだとPOPUPしたWindowが閉じて、はじめに開いたWindowが残ってしまいます、ここから開いた関係のあるWindowを全て閉じるにはどうしたらよいのでしょうか？