Dim say As New Speech.Synthesis.SpeechSynthesizer Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click Dim dr As DialogResult = MessageBox.Show("Are You Sure To Close The Program?", "Exit Request", MessageBoxButtons.YesNo) If dr = DialogResult.Yes Then say.SpeakAsync("Cya soon!") Application.Exit() Else say.SpeakAsync("Quitting Application Canceled.") End If End Sub