...
Case Is = "Esci"
                'messaggio che chiede di uscire
                If MessageBox.Show("Sei sicuro di voler terminare il programma", "USCITA", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2, MessageBoxOptions.DefaultDesktopOnly) = DialogResult.Yes Then
                    'Messaggio che chiede di salvare le modifiche
                    If MessageBox.Show("Vuoi salvare le modifiche di questa sessione?", "SALAVA MODIFICHE", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2, MessageBoxOptions.DefaultDesktopOnly) = DialogResult.Yes Then
                        Dim ScriviSuFile As System.IO.StreamWriter = System.IO.File.CreateText(Application.StartupPath & "\ListaProgrammi.list")
                        For Each i As Programma In ListaProgrammiCorrente
                            ScriviSuFile.WriteLine(i.Percorso & "," & i.Eseguibile)
                            ScriviSuFile.Flush()
                        Next
                        ScriviSuFile.Close()
                    End If
                    'Cancella l'icona dalla barra di sistema
                    IconaDiNotifica.Visible = False
                    'Esci dall' apllicazione (chiudi il programma)
                    Application.Exit()
                End If
...