Очистка текстбокса на форме

[Brudda]

Добрый день.
Столкнулся с такой проблемой: Необходимо, чтобы при входе (событие Enter) текст, находящийся в текстбоксе (TextBox) стирался. Если текстбокс находится на форме, то код TextBox1 = "" работает как надо, при каждом входе в текстбокс текст стирается. Но если текстбокс поместить во фрейм (Frame), то код работает только при первом входе, во всех последующих случаях текст не стирается. Может подскажете как с этим бороться?
Заранее спасибо.
С почтением,
Brudda

[Mikle]

Это что за событие Enter?
Проверил такой код:

Код: Выделить всё

Private Sub Text1_GotFocus()
  Text1.Text = ""
End Sub


Работает внутри фрейма без проблем, многократно.

Правка:
Сорри, это же VBA, действительно, есть такая проблема.

[Brudda]

Я тут поразмышлял и пришел к выводу, что проблема едва ли разрешима, если во фрейме только 1 контрол. Как мне кажется, войти повторно в контрол можно только предварительно выйдя из него, вход в контрол и выход взможен только внутри фрейма, но если там только 1 контрол, то и выйти уже некуда (билет в один конец, так сказать), все, что за пределами фрейма - это другое пространство.
Пришлось отказаться от фрейма. Но теперь все работает.
Mikle, спасибо за участие.
С почтением,
Brudda

[Template]

Я тут поразмышлял и пришел к выводу, что проблема едва ли разрешима

Если думать и размышлять, то да, а ежели просто использовать аналогичное событие, но у фрейма, то проблемы вооще не будет

Код: Выделить всё

Private Sub Frame1_Enter()
    TextBox1.Value = ""
End Sub

[Brudda]

Класс !!!!
Спасибо, Template.
Brudda