C# / VB.NET - salvare preferiti webrowser

Function ReadBookmarks(PathFile As String) As list (of String)
Dim R As New Io.streamreader(pathfile)
Dim BookmarkList As New list (of String)
Do Until r.endofstream
bookmarklist.add(r.readline)
Loop
r.close
Return Bookmarklist
End Function

ma per leggerlo cosa devo mettere cambiare
Dim R As New Io.streamreader(pathfile)
qui al posto di pathfile
mette il link del file c:\....
giusto ma per leggerlo sto elenco^^

Un po' di iniziativa...non so come vuoi leggerlo.

For each S as string in BookmarksList
messagebox.show(s)
Next

Così te li mostra in delle MsgBox...

Non Funziona!!!
Ricominciamo da capo

ho creato un form questo e il codice

Imports System.IO
Public Class Preferiti

    Private Sub Preferiti_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        salvapreferiti.Text = Form1.indirizzo.Text
    End Sub
    Private Sub aggiungi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles aggiungi.Click
        Dim sw As StreamWriter = File.AppendText("C:\Programmi\browser\preferiti.txt")
        sw.WriteLine("" & salvapreferiti.Text)
        sw.Close()
        Me.Close()
    End Sub
End Class

ricava il link del sito e lo salva...giusto

ma per leggerlo come posso fare...
cosa devo aggiungere al form1
vorrei farlo come quello di firefox che secondo me e il migliore

Perchè non funziona, spiegati meglio, cosa non va, che errore ti da...

Purtroppo qui non abbiamo la sfera di cristallo.

Parole sante. Aggiungo che a me funziona, quindi l'idea è corretta.
Poi non capisco perchè scrivi

sw.WriteLine("" & salvapreferiti.Text)

non fai prima con

sw.WriteLine(salvapreferiti.Text)

?
Comunque, al tuo codice aggiungi quella funzione che ti ho scritto, e poi aggiungi al form un bottone, mettendo nel gestore del suo evento click

Private Sub Leggi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Leggi.Click
        Dim L As List(Of String) = ReadBookmarks(percorsoDelFile)
        For Each S As String In L
            MsgBox(S)
        Next
    End Sub

Così funziona di sicuro.

Tu dici cosi...

perché non ho capito bene...

Function ReadBookmarks(PathFile As String) As list (of String)
Dim R As New Io.streamreader(pathfile)
Dim BookmarkList As New list (of String)
Do Until r.endofstream
bookmarklist.add(r.readline)
Loop
r.close
Return Bookmarklist
End Function

Private Sub Leggi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Leggi.Click
Dim L As List(Of String) = ReadBookmarks("C:\Programmi\browser\preferiti.txt") 
For Each S As String In L
MsgBox(S)
Next
End Sub

Si, in questo modo dovrebbero apparirti delle MsgBox con i link dei preferiti salvati.

Sembra che funzioni sto diventando scemo di quando sto creando sto coso...

una cosa invece di vederlo come
msgbox

io vorrei creare che per ogni link aggiunto
dovrebbe farlo vedere come
ToolStripMenuItem

sai come posso fare penso usando add.