on unload, cancel(solved)

[scr0p]

How do I let the user cancel closing the app? If they press the X button by accident and it says 'want to save, yes no cancel' for example.

[tr0n]

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If (MsgBox("Are you sure?", vbYesNo) = vbNo) Then
        Cancel = True
    End If
End Sub

[techgnome]

Just a minor addition to tr0n's code:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  If DataUnsaved Then '<-- Check to see if the needs to be saved first
    If (MsgBox("Are you sure?", vbYesNo) = vbNo) Then
        Cancel = True
    End If
  End If
End Sub