Controlar cierre de un formulario con formclosing Vb.net

Mientras realizaba una aplicación, quise cerrar el único formulario que tenia y toda la aplicación cuando el usuario hiciera clic en el botón cerrar, pero antes preguntarle si asi lo deseaba de lo contrario, cancelar el cierre. La primera solución que pensé fue la siguiente:

Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing

  

If MsgBox("Si cierra la aplicacion no se guardaran los cambios, realmente desea salir?", MsgBoxStyle.YesNo, "Salir?") = MsgBoxResult.Yes Then

                Application.Exit()

            Else

                e.Cancel = True

            End If

End Sub

Aparentemente funcionaba bien, al darle clic en el botón de cerrar, salia el mensaje de advertencia, si contestabas que no deseabas salir, el evento de cerrar se cancelaba. Pero resulta que cuando el usuario respondiera que si, volvía a realizar la misma pregunta si deseaba salir... y si respondía si otra vez, era entonces cuando se cerraba la aplicación.

Analizando un poco la situación, llegue a lo siguiente:

- La funcion Application.Exit, involucraba realizar el cierre de todos los formularios para luego terminar la aplicacion, por lo tanto,  puesto que tengo control sobre ese evento con el form_closing, la funcion aplication.exit, volvia a desencadenar mi evento form_closing, por esa razon preguntaba dos veces..

Con esto concluimos que el evento form_closing, no siempre se sucede cuando el usuario intenta cerrar un formulario, sino que puede desencadenarse con otros eventos que el usuario no realiza propiamente.

Entonces la solución fue: 
- Primero averiguar si ese cierre del formulario fue ocasionado por el usuario, y así entonces desplegar el mensaje si realmente deseaba cerrar el form y en consecuencia la aplicacion.

Así que esta fue la solución: 
Gracias a la propiedad closereason, para saber la razon del cierre de un formularion, en este caso, el cierre por parte del usuario

Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing

        If e.CloseReason = CloseReason.UserClosing Then

            If MsgBox("Si cierra la aplicacion no se guardaran los cambios, realmente desea salir?", MsgBoxStyle.YesNo, "Salir?") = MsgBoxResult.Yes Then

                Application.Exit()

            Else

                e.Cancel = True

            End If

        End If 

  End Sub