Класс для массива элементов

[Тимофей]

Пишу класс для TextBox с добавлением обработки некоторых функций-ввод только чисел, заглавные буквы.
Вопрос возможно ли написание класса для массива элементов.

Пример:
'модуль формы
Private clsTextBox1 As Class1 Private clsTextBox2 As Class1 Private clsTextBox3 As Class1 Private clsTextBox4 As Class1
Private Sub Form_Load()
Set clsTextBox1 = New Class1
Set clsTextBox1.TextBoxCtl = Text1
Set clsTextBox2 = New Class1
Set clsTextBox2.TextBoxCtl = Text2
Set clsTextBox3 = New Class1
Set clsTextBox3.TextBoxCtl = Text3
Set clsTextBox4 = New Class1
Set clsTextBox4.TextBoxCtl = Text4
End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)
'1 этот код выполняется перед событием KeyPress
'1 для класса Class1
If KeyAscii = Asc("a") Then KeyAscii = Asc("z"): Beep
End If End Sub

'модуль класса
Private WithEvents txt As TextBox
Public Property Set TextBoxCtl(OutsideTextBox_
As TextBox)
Set txt = OutsideTextBox End Property
Private Sub txt_KeyPress(KeyAscii As Integer) 1 преобразует в прописные буквы KeyAscii = Asc(UCase$(Chr$(KeyAscii)))
End Sub
Private Sub txt_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) txt.ToolTipText = "X:" & X & " Y:" & Y
End Sub

[alibek]

Если я правильно понял, вопрос звучит так: как реализовать события в массиве элементов?
Если да, то поищи по форуму. Это вполне возможно, если вкратце, то есть класс-посредник, который содержит коллекцию основных классов. Эти основные классы при событиях вызывают метод класса-посредника, а уже тот генерит события.

[Тимофей]

неужели все так сложно ?

[GSerg]

Всё так просто.