Пока мы ничего не делали с нашим таймером. Принцип работы таймера в нашем случае следующий - он должен восстановить цвет для нашего ActiveX-элемента PasswordBox, далее он должен его разблокировать и, наконец, таймер должен отключить сам себя. Так же для удобства пользователя хорошо бы опять установить фокус на PasswordBox для повторного ввода пароля.
Эта функциональность таймера реализуется слудующим кодом:
Private Sub tmrMain_Timer() 'восстанавливаем первоначальный цвет ActiveX-элемента txtPassword.BackColor = vbWindowBackground 'Включаем ActiveX-элемент UserControl.Enabled = True 'Устанавливаем фокус txtPassword.SetFocus 'Отключаем таймер tmrMain.Enabled = False End Sub
Добавьте его в код для разрабатываемого ActiveX-элемента.
Далее