Название элемена управления - как переменная

[Brudda]

Привет!
Может подскажет кто, как решить такую проблему: есть функция, в которую качестве параметра необходимо передать название(?) элемента управления, скажем, ЭдитБокс. Суть в том, что одни и те же действия производятся с разными элементами. Я понимаю, что название элемента необходимо присвоить переменной - а вот как это сделать?
Заранее спасибо,
Brudda

[alibek]

Объяви аргумент функции как TextBox, Control или Object, тогда ты сможешь просто передавать этот объект.

[GSerg]

Дополню.
В VBA есть небольшой глючок с этим делом. Процедура

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

sub foo(byval t as TextBox)
end sub

прекрасно проглатывается компилятором, но при попытке её вызова происходит ошибка 13 - несоответствие типов.
Чтобы от неё избавиться, нужно объявлять

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

sub foo(byval t as MSForms.TextBox)
end sub

[Brudda]

Спасибо.
Видимо, вопорос по-дурацки задан. Вот кусочек кода (не работает):

Private Sub CommandButton1_Click()
Dim chk As Object
chk = UserForm1.TextBox1 //тут вышибает
HideBox (chk)
End Sub

Public Sub HideBox(aaa As Object)
aaa.Visible = False
End Sub

Где тут ошибка?

[GSerg]

Private Sub CommandButton1_Click()
HideBox TextBox1
End Sub

Public Sub HideBox(aaa As Object)
aaa.Visible = False
End Sub

[Brudda]

Так, проблема то в том, что вместо TextBox1 может появиться TextBox2 или любой другой элемент. Там переменную надо, как мне кажется

[GSerg]

Не надо переменную. Просто пиши имя объекта как параметр процедуры.

[alibek]

Я понял
.Controls("TextBox1")

[Brudda]

Тогда нет смысла - все равно для каждого элемента отдельную процедуру писать придется. А идея была - сократить код и, в зависимости от ситуации, та же самая процедура обрабатывал тот или иной элемент. Может можно через переменную как-нибудь?

[GSerg]

Короче
В чём задача?

[Brudda]

Достал?
Есть несколько TextBox, после ввода данных программа проверяет наличие недопустимых символов и при наличии таковых, программа выбрасывает сообщение, чистит TextBox и еще ряд процедур. Можно написать код отдельно для каждого TextBox и все будет работать. А я пытаюсь сделать это как процедуру и передавать TextBox как параметр. Да, в программе TextBox"ы имеют смысловые названия и не все из имеющихся TextBox подвергаются проверке. Такой вот винегрет.

[alibek]

Так в чем проблема? Тебе дали два варианта, любой из них подходит.

[Brudda]

Забыл - это все на форме.

[GSerg]

Ну и?

sub test
check textbox1
check textbox2
check textbox3
end sub

sub check(byval t as msforms.textbox)

end sub

[Brudda]

Мда...
мне похоже отдохнуть надо. Зациклился.
Спасибо.
Brudda