Código
Private Sub GuardarCombinacionesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GuardarCombinacionesToolStripMenuItem.Click Dim rutaFichero As String Dim i As Integer rutaFichero = Path.Combine(Application.StartupPath, "Combinaciones.txt") Dim fichero As New IO.StreamWriter(rutaFichero) For i = 0 To ListBox2.Items.Count - 1 fichero.WriteLine(ListBox2.Items(i)) Next fichero.Close() End Sub
Luis