Crear eventos

[jetzona]

para aquellos que les interece ya encontre la solucion de como poder asignar los enventos en tiempo de ejecucion a mi matriz de controles creada en tiempo de ejecucion era tan sencillo como :
AddHandler objeto_a_asignar, AddressOf Procedimientoa ejecutar

mi codigo quedaria asi:

Private Sub GeneraLC(ByVal ta As Integer, ByVal baño As String)
Dim i, j, lc As Integer
Dim posx, posy As Integer
Dim espacio As Integer = 55 '//espacio entre los botones en las filas
Dim alto As Integer = 30 '// espacio enter los botones en las columnas
If (ta = 42) Or (ta = 46) And (baño = "central") Then
lc = Math.Round(((ta / 2) + 3) / 2)
Else
lc = ((ta / 2) + 2) / 2
End If
For i = 3 To 4
For j = 1 To lc
'inicializacion de la matriz
buses(i, j) = New Button
posx = j * espacio
posy = i * alto + 30
buses(i, j).Location = New System.Drawing.Point(posx, posy)
buses(i, j).Size = New System.Drawing.Size(42, 27)
buses(i, j).Image = Global.WindowsApplication1.My.Resources.Resources. Poltrona
Me.Controls.Add(buses(i, j))
AddHandler buses(i, j).Click, AddressOf Evento_Click
Next j
Next i
End Sub


en donde evento click es asi:

Private Sub Evento_Click(ByVal sender As Object, ByVal e As System.EventArgs)
MsgBox(sender.text)
End Sub

esto solo me debuelve el text asignado al boton
gracias a lo que respondieron...........cri cri cri cri.............(esto es un grillo)
jajajajaja
y si les sirve ok