Заголовок
VB6, Visual Basic 6, Вопрос, MsgBox, Вывести сообщение
If vbCancel = MsgBox("Вы хотите выйти из программы ?", vbOKCancel + vbQuestion, "Сообщение") Then
      Exit Sub
End If