t

    dim de as new folderitem
    de = GetFolderItem("Libs").Child("feed.dat")
    de.Delete

    //Populate listbox with feed
    e = getfolderitem("feed.dat")
    stream = e.openastextfile

    if e <> nil and e.exists = true then

        advanced_panel.Listbox5.DeleteAllRows

        while not stream.eof
          s() = split(stream.readline,",")
          advanced_panel.listbox5.AddRow s(0)
          advanced_panel.ListBox5.Cell(advanced_panel.Listbox5.LastIndex,1)= s(1)
          advanced_panel.ListBox5.Cell(advanced_panel.Listbox5.LastIndex,2)= s(2)
          advanced_panel.ListBox5.Cell(advanced_panel.Listbox5.LastIndex,3)= s(5)
          advanced_panel.ListBox5.Cell(advanced_panel.Listbox5.LastIndex,4)= s(7)
          advanced_panel.ListBox5.Cell(advanced_panel.Listbox5.LastIndex,5)= s(8)
          advanced_panel.ListBox5.Cell(advanced_panel.Listbox5.LastIndex,6)= s(13)
        wend

        stream.Close
        advanced_panel.Listbox5.ColumnSortDirection(1) = ListBox.SortDescending
        advanced_panel.Listbox5.SortedColumn = 1
        advanced_panel.Listbox5.Sort
        advanced_panel.Listbox5.ScrollBarHorizontal=true


    end if