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