Как отменить закрытие окна - VB

Формулировка задачи:

т.е. если я нажимаю крест вправом верхнем углу моя прога переспрашивает: точно хочешь уйти? и если да, то отлично уходит(закрывается). а если нет - тоже закрывается (хотя мне-то надо, чтоб НЕ ЗАКРЫВАЛАСЬ!!!)

Решение задачи: «Как отменить закрытие окна»

textual
                            Листинг программы 
                        

                            Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    On Error Resume Next
    If MsgBox('Вы уверены, что хотите завершить программу?', vbYesNo + vbQuestion, 'Завершение работы программы') = vbNo Then Cancel = 1
 Exit Sub
    end if
   
End Sub
                        