exiting problems[resolved]

[OsamaBinGhandi]

i want to do a msgbox that prompts the user to exit, or not. problem is, even when you click 'no,' you still exit.
here's my code

Private Sub Form_Unload(Cancel As Integer)
Dim m As Integer
 
m = MsgBox ("Are you sure you want to exit?", vbExclamation + vbYesNo, "Exit?")
 
Select Case m
 
    Case vbYes
        Unload frmMain
        Exit Sub
    Case vbNo
        Exit Sub
 
End Select
End Sub

what is wrong here?

thanks d00dz

[OsamaBinGhandi]

oooook.....nevermind i fixed it.
had to set cancel = true under vbNo.

oh well

[Keithuk]

You have to make Cancel = True or = -1

Private Sub Form_Unload(Cancel As Integer)
Dim m As Integer
 
m = MsgBox ("Are you sure you want to exit?", vbExclamation + vbYesNo, "Exit?")
 
Select Case m
 
    Case vbYes
        Unload frmMain
 
    Case vbNo
        Cancel = True
 
End Select
End Sub