Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button2.Click
        Dim Stream As New IO.FileStream(Application.StartupPath + _
        "/links/liste.txt", IO.FileMode.Open)
        Dim Reader As New IO.StreamReader(Stream)
        Dim Adresse As String
 
        While Reader.Peek > -1
            Adresse = (Reader.ReadLine())
            MsgBox(Adresse)
            WebBrowser1.Navigate(Adresse)
            Timer1.Start()
        End While
 
        Reader.Close()
        Stream.Close()
End Sub