msgbox question

[tbone231]

this code won't end the program, it just sends me back to my form, i want it to end the program, what am i doing wrong....

Private Sub cmdcancel_Click()
Dim intresponse As Integer
MsgBox "Are you sure you want to quit the program?", vbYesNo, "You Actually Want to Quit?"
If intresponse = vbYes Then
End
End If
End Sub

[pegasus]

heres how u can do it:

Private Sub cmdcancel_Click()
q = Msgbox ("Are you sure you want to quit the program?", vbYesNo, "You Actually Want to Quit?")

if q = vbYes then

end

else
end if
end sub

hope that works..
..if it doesn't post bac and ill look it up. this is all of the top of my head...

hope i helped,
pegasus

[nullus]

teehee, you never assigned the result of the msgbox to the variable

If (MsgBox("You wanna quit, huh?", vbYesNo) = vbYes) Then
  End
End If

works nicer i think

[Blaster]

Private Sub Command1_Click()
intresponse = MsgBox("Are you sure you want to quit the program?", vbYesNo, "You Actually Want to Quit?")
If intresponse = vbYes Then
End
End If
End Sub

[tbone231]

assigning the variable would help

must have had a brain freeze: rolleyes:

thanks everybody