Delegar eventos en una clase

[luciano]

Hola, tengo una clase que recibe un control textbox como parametro. Dentro de la clase tiene delegado algunos eventos (no se si se dice asi) para ese textbox, . Funciona perfecto, por ejemplo parte del codigo resumido para que se entienda

en class1

Código:

Private WithEvents ElText As TextBox

Public Sub Iniciar(UnText As TextBox)

Set ElText = UnText

End Sub


Private Sub ElText_KeyDown(KeyCode As Integer, Shift As Integer)

MsgBox KeyCode

End Sub

..en el form, para 2 textbox (text1 y text2)

Código:

Dim obj1 As Class1
Dim obj2 As Class1
Private Sub Form_Load()
Set obj1 = New Class1
Set obj2 = New Class1
obj1.Iniciar Text1
obj2.Iniciar Text2


End Sub

Private Sub Form_Unload(Cancel As Integer)
Set obj1 = Nothing
Set obj2 = Nothing
End Sub

Como dije los intercepta bien y asi funciona,

La pregunta: ¿como hago para interceptar eventos en controles que forman una matriz ??? ..ya probé obviamente declarando en el procedimiento de evento el parámetro Index as Integer, tambien pasarlo como Object en ves de As TextBox

Código:

Private Sub Text_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)

pero no lo toma y me dice que el procedimiento no se corresponde con la descripcion del evento

..gracias por cualquier dato :)





----------------

saludos