Fermer un form avec le bouton d'un messagebox

 Private Sub Btn_exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_exit.Click

        Dim Message As String = "Voulez vous quitter?"
        Dim Caption As String = "Chez Murphy"
        Dim Buttons As Integer = MessageBoxButtons.YesNo

        Dim Result As DialogResult

        'Displays a MessageBox using the Question icon and specifying the No button as the default.

        Result = MessageBox.Show(Me, Message, Caption, MessageBoxButtons.YesNo, MessageBoxIcon.Asterisk)

        If Result = Windows.Forms.DialogResult.OK Then
            'Fermer le parent  
            Me.Close()           
        Else
        End If


    End Sub