Help Please

[Jamie_Garland]

Can anyone help me please.

I have the following code in

Private Sub Form_Load()
FileName = App.Path & "/urls.txt"
Dim Favs
Open FileName For Input As #1
Do While Not EOF(1)
Line Input #1, Favs
List1.AddItem Favs
Loop
Close #1
End Sub

All the urls that are saved in to urls.txt are displayed on the listbox how do i get it so when someone clickson the url it then takes them to that page on my web browser its going to be like favs soon can anyone help please.

[leinad31]

Private Sub List1_Click()
   If List1.ListIndex >=0 Then 
      Webbrowser1.Navigate List1.List(List1.ListIndex)      'Or Shell the browser
   End If
End Sub

[Jamie_Garland]

How would i delete from the favs not them all just one url at a time.?

[leinad31]

You will have to iterate from end of list to listindex=0 to avoid problems with indice shifts due to removal of list elements.