Creating a Favoriter [SOLVED]

[brandonio21]

Alright, I have found a solution <!-- s --><img src="{SMILIES_PATH}/icon_e_smile.gif" alt="" title="Smile" /><!-- s -->
Replace this :

Code:

Dim writer as new system.io.streamwriter(my.application.info.directorypath + "/settings.ini")
  for each item in listbox1.items
   writer.write(item + vbNewLine)
  next
writer.close
writer.dispose

With this..

Code:

Dim writer as new system.io.streamwriter(my.application.info.directorypath + "/settings.ini")
dim i as integer = 0  
do until i = listbox1.items.count - 1
listbox1.selectedindex = i
if i < listbox1.items.Ubound - 1 then
writer.write(listbox1.selecteditem + vbNewLine)
else
writer.write(listbox1.selecteditem)
end if
i = i + 1
next
writer.close
writer.dispose

Tell me how it goes! <!-- s --><img src="{SMILIES_PATH}/icon_e_biggrin.gif" alt="" title="Very Happy" /><!-- s -->