Как остановить выгрузку формы?

[Alkoch]

Вопрос вроде бы простой, но решить сам не могу. Суть дела: выход из формы должен происходить одинаково с запросом через VessageBox (кнопки OK/Cancel) как при выходе из созданного мной меню, так и при нажатии стандартной кнопки Close в верхнем правом углу. С меню все просто, а вот с кнопкой Close не получается: программа виснет, если на messageBox нажать кнопку Cancel, то есть если надо отменить выход. Помогите, пожалуйста советом и примером.

[GSerg]

Код: Выделить всё

Private Sub Form_Unload(Cancel As Integer)
  Cancel = MsgBox("Ну и чё?", vbYesNo) = vbNo
End Sub

[Ennor]

Код: Выделить всё

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim Z As VbMsgBoxResult
Select Case UnloadMode
  Case vbFormControlMenu
    Z = MsgBox("Really quit?", vbOKCancel + vbQuestion)
    If Z <> vbOK Then
      Cancel = 1
      Exit Sub
    End If
End Select
End Sub