Private IEs As New List(Of SHDocVw.InternetExplorer)
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        Dim shellWindows As New SHDocVw.ShellWindows
        For Each IE As SHDocVw.InternetExplorer In shellWindows
            ListBox1.Items.Add(IE.LocationName)
            IEs.Add(IE)
        Next
    End Sub
 
    Private Sub ListBox1_SelectedIndexChanged(sender As System.Object, e As _
      System.EventArgs) Handles ListBox1.SelectedIndexChanged
        If ListBox1.SelectedIndex > -1 Then
            IEs(ListBox1.SelectedIndex).Navigate("www.vbarchiv.net")
        End If
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist