После создания формы, напишем программу, которая вставит «модуль программ» на Бэйсике в нашу форму. Это необходимо для того, чтобы обеспечить обработку событий формы, например, таких как открытие, загрузка, нажатие кнопок.
Далее в лекциях идет перечисление событий. Они отмечены на рисунках кнопкой.
Public Function funInsertFormModule(frm As Form) As Boolean
Dim s As String, mdl As Module
On Error GoTo 999 'Переход по ошибке
s = appFolder & "\Программы\Form_Мой калькулятор.bas"
If Dir(s) <> "" Then 'Проверяем файл
frm.Module.AddFromFile s 'Добавляем модуль
End If
Exit Function 'Выходи из программы
999:
MsgBox Err.Description 'Сообщаем об ошибке
Err.Clear 'Очищаем поток от ошибок
End Function
Ссылки по теме