Всего в мире есть 2 вида юзеров - это обычный, и продвинутый. Запретить выход обычному юзеру можно поставив у формы свойство ControlBox = False, и кнопка выхода исчезнет(), тогда юзер начнет нервничать и может нажать на Reset

А вот если перед нами стоит продвинутый юзер, то он намного хитрее, и спокойно закроет программу щелкнув правой кнопкой мыши по заголовку формы, и в меню нажмет закрыть, или просто нажмет Alt + F4.И перед нами возникает вопрос: "Как запретить юзеру выйти из программы", или не обязательно запретить, а хотя бы спросить его. Так например в Блокноте, где я сейчас пишу этот учебник, перед выходом он запрашивает: "Текст в файле ... был изменен. Сохранить изменения?".

Ну короче не буду тебя грузить, что может случиться, а сразу перейдем к делу. Создай новый проект(Standart EXE), вот код с пояснением.

'Создай процедуру UnLoad
Private Sub Form_Unload(Cancel As Integer) ' При выходе из программы:
b = MsgBox("Хей! Юзер поганый, только попробуй меня закрыть... ", 20, "Не надо - ПЛИЗ!!!") ' Идет запрос
If b = 7 Then ' если нажимаешь Нет - то возврат в программу, если Да выход
Cancel = True
End If

Вот и все! Теперь из твоей программы не выйдет даже самый хитрый юзер.