Intercept close button

[Krushstone]

Hi

How do I intercept when the user click the X button in my app so I can ask the user if he really wants to quit?

And what about intercepting the minimize button?

thanks

Krushstone

Private Sub Form_Unload(Cancel As Integer)
    If MsgBox("Are you sure you want to quit?", vbYesNo, "MyApp") = vbNo Then Cancel = True
End Sub