中の動きはあまりかえず、事前バインディングとなるよう参照にMicrosoft Internet Controlを追加して 以下のようにソースを修正したところ、正常に動作するようになりました。 インスタンスの解放というよりもインスタンスの生成自体に問題があったのでしょうか。 なぜかが理解できずもやもやしますが、ひとまずは解決できてよかったです。 ぽぴ王子さんありがとうございます。 Dim ie As SHDocVw.InternetExplorer Dim shw As New SHDocVw.ShellWindows ----------------------------------------------------------------------- For Each ie In shw Try urlA = ie.LocationURL Me.TextBox1.Text = urlA Finally If Not urlA Is Nothing Then If System.Runtime.InteropServices.Marshal.IsComObject(urlA) Then 'COMオブジェクトの参照カウントをデクリメント System.Runtime.InteropServices.Marshal.ReleaseComObject(urlA) End If urlA = Nothing End If End Try ie.Quit() Next ie -----------------------------------------------------------------------
- Child Tree -