Quick VB Express 2008 Question

[SaviorSelf]

Looking to have a button to exit the program with a message box popping up asking for confirmation to exit. Here's what I have so far that's not working as intended/don't know what to write for "no".

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
MsgBox("Are you sure you want to exit the program? All inputted information will be lost.", vbYesNo, "Exit")
If MsgBoxResult.Yes Then
Me.Close()
ElseIf MsgBoxResult.No Then
'Watisthisidonteven
End If
End Sub

Clicking "Yes" does close it, but also clicking "No" closes it as well, even if theres no code which I'm not sure why. The "Yes" button should close the program, and the "No" button should close the messagebox and show the program again.

[Senoska]

Assign the message box to a var.

        Dim DisBeVar As DialogResult = MsgBox("Are you sure you want to exit the program? All inputted information will be lost.", vbYesNo, "Exit")
        If DisBeVar = Windows.Forms.DialogResult.Yes Then
            Application.Exit()
        End If

You don't need to have an elseif if the only value you're looking for is yes.

[SaviorSelf]

Perfect, thanks loli<3

[Senoska]

To do it without defining anything you can also do:

         If MsgBox("Are you sure you want to exit the program? All inputted information will be lost.", vbYesNo, "Exit") = Windows.Forms.DialogResult.Yes Then
            Application.Exit()
        End If

which is what I think you were originally trying to do.

[hhugoams]

I accept with information

Assign the message box to a var.

        Dim DisBeVar As DialogResult = MsgBox("Are you sure you want to exit the program? All inputted information will be lost.", vbYesNo, "Exit")
        If DisBeVar = Windows.Forms.DialogResult.Yes Then
            Application.Exit()
        End If

You don't need to have an elseif if the only value you're looking for is yes.

[SaviorSelf]

Oh, I bet you do.