Private Sub Form_Unload(Cancel As Integer)
Dim MSG As VbMsgBoxResult
MSG = MsgBox("Вы действительно хотите выйти из программы?", vbExclamation + vbYesNo, "Сообщение")
Select Case MSG
Case vbYes: Cancel = 0
Case vbNo: Cancel = 1 ' В случае отмены закрытия далее здесь можно написать интересующее Вас действие
End Select
End Sub
Действие при закрытии проги
Доброго времени суток! Есть вопрос: как сделать так чтобы при нажатии на крестик(который закрывает прогу) производилось какое либо действие и при этом прога не закрывалась, а например сварачивалась в трей? Помогите плиз! Заранее спасибо!:)
Спасибо!)