C# と VB.NET の質問掲示板

        Dim wins As New SHDocVw.ShellWindows

        Dim count As Integer = wins.Count

        For i As Integer = 0 To count - 1

            Dim win As IWebBrowser2 = CType(wins.Item(i), IWebBrowser2)

        Next i


のコードで開いている
ExplorerとIEの情報を取得したいのですが、
IEがフリーズして応答無しになっている場合
Dim win As IWebBrowser2 = CType(wins.Item(i), IWebBrowser2)
のところでプログラムもフリーズして止まってしまいます。

これを回避するにはどうすれば良いですか？