lstSource.List(0) 'dadurch hätte ich scho mal den ersten Eintrag in der Listbox
 
Private Sub Webbrowser_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim NewFrm As frmTest
Set NewFrm = New frmTest
Set ppDisp = frmTest.Webbrowser.Object
frmTest.Show
End Sub
 
'Dadurch wird ja n Fenster zur Laufzeit erstellt, aber leider nur 1 einziges, 
' das heisst wenn ich eine 2. Url aufrufe wird DIESES überschrieben, das sollte 
' aba NICHT passieren...'