This is written in VB not VB.NET, but may help point you in the right direction:


Dim oShellWindows As SHDocVw.ShellWindows 'shdocvw.dll
Dim oWebBrowser As SHDocVw.WebBrowser
Dim lShellWindowIndex As Long

Set oShellWindows = New SHDocVw.ShellWindows

For lShellWindowIndex = oShellWindows.Count To 1 Step -1
Set oWebBrowser = oShellWindows(lShellWindowIndex - 1)
Debug.Print oWebBrowser.LocationURL
Next iShellWindowIndex


Good luck.

ewb