Запустите Visual Basic. Создайте новый проект типа ActiveX Control.
Внесите следующие изменения в окно свойств:
1.Для проекта измените свойство Name на MyPassword (рис. 2).
2.Для элемента ActiveX свойство Name изменяем на PasswordBox рис. 3).
Далее зайдите в окно свойств проекта (меню Project, далее подменю MyPassword Properties…) и измените свойство Description на Osco do Casco Password или что-то аналогичное. Это описание запомните или запишите - оно нам ещё пригодится. Как Вы помните, именно в соответствии с этим описанием Ваш ActiveX-элемент и будет располагаться в списке ActiveX-элементов, появляющимся при выборе меню Project->Components. Напомним, что обычно описание строится по схеме Имя_Вашей_Фирмы + Имя_элемента_ActiveX. В этом случае все Ваши ActiveX-элементы будет располагаться рядом в списке всех установленных на компьютере ActiveX'ах.
Закройте окно свойств проекта, нажав кнопку OK.
Теперь подумаем, какие готовые элементы нам хорошо бы добавить в наш ActiveX.
Вспомним, что, во-первых, в наш ActiveX-элемент пользователю надо будет нечто вводить (а именно пароль). Для того, чтобы не разрабатывать элемент для ввода текста с нуля, мы расположим на нашем UserControl'е "MyPassword - PasswordBox" уже готовый для этих целей элемент - а именно TextBox. Рассуждаем далее. Разрабатываемый нами ActiveX-элемент должен поддерживать блокировку на некоторый промежуток времени. Причём этот промежуток при вводе неправильного пароля меняется. Для обеспечения этой функциональности нам необходимо добавить к нашему ActiveX-элементу таймер.
Итак, произведите следующие действия:
1.Двойным щелчком на панели элементов разместите на UserControl'е "MyPassword - PasswordBox" элемент TextBox.
2.Измените его свойство Name в txtPassword. Далее измените свойства Text в "" (пустую строку), а свойства Left и Top - в нули. Эти изменения нужны для того, что бы первоначально при использовании нашего ActiveX-элемента в нём никакого пароля не было и чтобы слева и сверху от него не было пустого места.
3.Двойным щелчком на панели элементов разместите UserControl'е "MyPassword - PasswordBox" элемент Timer.
4.Измените свойство Name для таймера на tmrMain.
5.Переместите таймер ближе к TextBox'у txtPassword и измените размеры UserControl'а на более компактные.
После этого Ваш элемент должен приблизительно выглядеть как на рисунке 4.
Далее