şöyle bir kod buldum
Kod:
PublicClass Form1
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Get all opened IE instances
Dim shellWindows As SHDocVw.ShellWindows = New SHDocVw.ShellWindowsClass()
'Iterate each IE instance/object
Dim ie As SHDocVw.InternetExplorer
ForEach ie In shellWindows
' Get window title and URL of IE instance and display on ListBox
ListBox1.Items.Add(ie.LocationName & " " & ie.LocationURL)
' Close/quit this IE instance
ie.Quit()
Next ie
EndSub
EndClass