arreglo bidimencional

[jetzona]

hello, mens oigan llevo un tiempito realizando un arreglo bidimencional y todo ok lo declaro todo funciona ok pero lo declaro de manera tal que solo puedo acceder a el dentro de la funcion en la cual lo genero, este es un arreglo de botones es para simular las posisciones dentro de un bus pero lo que pasa es lo siguiente: ahora quiero asignarle diferentes eventos a los botones creados pero como mi arreglo fue declarado e inicializado en la funcion en la cual lo creo no puedo ir asignado eventos ni ocuparlo fuera de esta funcion, yo lo quiero ocupar dentro del formulario para poder asignar eventos a algunas posiciones y eventos en comun para todos los botones pero no puedo, ya e intentado tratar de declaralo fuera de la funcion péro no me funciona nada aca les dejo el codigo para que le hechen un vistazo: y si me pueden ayudar, pucha aun mejor ya que hasta las sugerencias pueden dislumbrar un poco mis dudas, de todas formas lo que deseo es poder declararlo de manera publica para poder acceder a el desde cualquier parte del form

ahora el codigo:

Public Class Form3
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub GenerarLC(ByVal ta As Integer)
Dim buses(4, 20) As Button
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
lc = ((ta / 2) + 3) \ 2
For i = 3 To 4
For j = 1 To lc
buses(i, j) = New Button
posx = j * espacio
posy = i * alto + 80
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))
Next j
Next i
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Ta As Integer
Dim baño As String
Ta = CInt(TextBox1.Text)
GenerarLC(Ta)
'********************************
baño = TextBox2.Text
GeneraLB(Ta, baño)
End Sub
End Class