1)Щелкнуть 2 раза по пустому месту формы для вызова окна кода. Это ДО имеет 2 раскрывающихся списка: Object и Procedure - для выбора объектов и методов (см. рис.12.9). Оно позволяет переключаться между всеми процедурами всех объектов одной формы.
В списке Object ввести имя формы:
Object: Form1
В списке Procedure ввести код: