VB Code: The "Are You Sure?" Message Box During Form_Unload

Private Sub Form_Unload(Cancel As Integer) ' 'This sub makes sure the user really wants to quit. 'Note the use of the ProductName Property 'of the App object of the VB Library. ' Cancel = (VBA.MsgBox("Are you sure you want " _ & "to quit?", vbYesNo + vbDefaultButton2 + _ vbQuestion, VB.App.ProductName) = vbNo) End Sub

mod date: 1999-04-23T03:40:49.000Z