Añadir evento a userControl

[therealzeta]

Hola, a ver si me pueden ayudar:

Diseñe un user control y cargo cierta cantidad de ellos en tiempo de ejecucion. Hasta ahi todo bien. Pero ahora necesito ponerle un menu contextual y no logro añadirle el evento.

defino el array de controles de esta forma:

Public ctlDireccion(40) As ControlDisp.controlDir

For i = 1 To dtDireccion.Rows.Count
ctlDireccion(i) = New ControlDisp.controlDir()
ctlDireccion(i).Name = "ctl" & i
ctlDireccion(i).Tag = dtDireccion(i - 1)("DireccionId")
ctlDireccion(i).Direccion = dtDireccion(i - 1)("Direccion")
.....
ctlDireccion(i).Location = New Point(((i - 1) * 120) + 20, 40)
Me.Controls.Add(ctlDireccion(i))
Next

Luego le añado el evento:
Private Sub ctlDireccion_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ctlDireccion.MouseUp

y me da el error (Handles clause requires a WithEvents variable defined in the containing type or one of its base types). Segun lo que encontre, ese error se soluciona con una definicion asi:

Dim WithEvents ctlDireccion As New ControlDisp.controlDir

Pero aqui esta el problema, yo realmente necesito que la definicion sea para el array quedando de la siguiente forma:

Dim WithEvents ctlDireccion() As New ControlDisp.controlDir

pero eso no eso no se puede. Puede alguien decirme como puedo solucionar este problema. Necesito poderle un menu contextual a ese array de controles y saber cual fue el control que genero el evento.

Saludos

[therealzeta]

Ya lo solucione. bien sencillo. al cargar lso controles.

AddHandler ctlDireccion(i).MouseUp, AddressOf ButtonClickEventProc


Public Sub ButtonClickEventProc(ByVal sender As Object, ByVal e As EventArgs)

MsgBox("Yoel")
End Sub

Aunque yo lo que realmenet queria era ponerle un menu contextual y para eso basta con utilizar la propiedad

ctlDireccion(i).ContextMenuStrip = mnuDireccion, pero claro, luego me di cuenta que necesitaba el evento para saber sobre que control se utilizaba el menu.