Originariamente inviato da FETBIG
Scusami deve essere rimasto qualcosa in mezzo ai denti

Non

Private Sub SaveList(ByVal lst As ListBox, ByVal file As String)

Dim I As Integer
Dim a As String

On Error GoTo err

FileOpen(1, file, openmode.output) file For Output As #1
For I = 0 To lst.Items.Count - 1
a = lst.Items(I)
Write(1, a)
Next
FileClose(1)
Exit Sub
err:
MsgBox("There has been a error!", vbOKOnly, "Error")
End Sub


ma (il testo sottolineato apparteneva alla vecchia sub)

Private Sub SaveList(ByVal lst As ListBox, ByVal file As String)

Dim I As Integer
Dim a As String

On Error GoTo err

FileOpen(1, file, openmode.output)
For I = 0 To lst.Items.Count - 1
a = lst.Items(I)
Write(1, a)
Next
FileClose(1)
Exit Sub
err:
MsgBox("There has been a error!", vbOKOnly, "Error")
End Sub


Ciao
Si avevo notato,avevo capito subito che quello era un errore infatti l'ho tolto e ha funzionato alla perfezione!E come ho già detto ora tenterò di fare la funzione per caricare la lista.Grazie!