Private Sub Command1_Click(). a = MsgBox("Вы уже посмотрели, как работает_

a = MsgBox("Вы уже посмотрели, как работает_

программа?" & Chr(13)&Chr(10) & "Завершить работу_

сейчас?", vbYesNo + vbQuestion, "Демонстрация_

многострочного сообщения")

If a = vbYes Then Unload Me 'Выгрузить форму

End Sub

Рис. 5 – Пример использования функции MsgBox:

Ввод и вывод данных в VB

Осуществляется с помощью встроенных функций InputBox, MsgBox,с помощью изменения определенных свойств определенных объектов или применения к ним соответствующих методов.