ListBox1.Items.Add(TextBox1.Text)

        Dim Saveval As Integer = 1
        Dim Listpath As String = "C:\Documents and Settings\Administrador\Mis documentos\Downloader X\" & "Historial de Links Introducidos" & ".txt"
        Saveval = Saveval + 1
        For i = 0 To ListBox1.Items.Count - 1
            Form2.ListBox1.SetSelected(i, True)
            Dim Listwrite As System.IO.StreamWriter
            Listwrite = My.Computer.FileSystem. _
            OpenTextFileWriter(Listpath, True)
            Listwrite.WriteLine(ListBox1.Items(i))
            Listwrite.Close()
        Next

If ListBox1.Text.Contains("") Then

            ListBox1.Text.Replace("", "")

        End If

        Dim Archivo$ = "C:\Documents and Settings\Administrador\Mis documentos\Downloader X\" & "Historial de Links Introducidos" & ".txt"
        Dim FF% = FreeFile()
        FileOpen(FF, Archivo, OpenMode.Input)
        Do While Not EOF(FF) 'Leerá lineas hasta que termine el archivo
            ListBox1.Items.Add(LineInput(FF)) 'Agregara Linea Actual leida al ListBox (Lineinput es un sistema que lee linea por linea un archivo)

        Loop
        FileClose(FF)


        On Error GoTo fallo



fallo:
        
        Me.Refresh()

        Exit Sub

        Resume