Botones Dinamicos

[snowdogs]

Bueno en el codigo que te mostre arriba la verdad no veo donde se le coloque nombre a cada boton que se crea.. al yo presionar cada boton me va mostrar el nombre del equi al que pertenece ese boton y otras cositas, pero lo que quiero es que no me deje presionar esos 2 botones si presione el boton 1 no puedo presionar el boton 2 si lo presiono me debe dar un mensaje que es una combinacion invalida..

el codigo donde creo los botones y otras cosas qe lleva esta pantalla es:

Código vb:

Public Class Form1
        Dim logros(10) As Label
        Dim codDeporte As Integer = 1 'Beisbol
        Dim Partidos() As GroupBox
        Dim totalPartidos As Integer = 0
        Dim totalLogros As Integer = 0
        Dim BotonEquipo1(,) As Button
        Dim BotonEquipo2(,) As Button
        Sub CrearPartido(ByVal nombreEquipo1 As String, ByVal nombreEquipo2 As String)
            ReDim Preserve Partidos(totalPartidos)
            Dim x As Integer = 100
            Dim i As Integer
            Dim separacion As Integer = 75
            Dim equipo1 As New Label
            Dim equipo2 As New Label
            equipo1.Text = nombreEquipo1
            equipo2.Text = nombreEquipo2
            equipo1.AutoSize = True
            equipo2.AutoSize = True
            equipo1.Location = New Point(15, 20)
            equipo2.Location = New Point(15, 55)
            Partidos(totalPartidos) = New GroupBox
            Partidos(totalPartidos).Size = New Size(800, 90)
            'Partidos(totalPartidos).BackColor = Color.Gray
            Partidos(totalPartidos).Location = New Point(4, 90 * (totalPartidos + 1))
            Partidos(totalPartidos).Controls.Add(equipo1)
            Partidos(totalPartidos).Controls.Add(equipo2)
            For i = 1 To totalLogros
                ReDim BotonEquipo1(totalPartidos, i)
                BotonEquipo1(totalPartidos, i) = New Button
                BotonEquipo1(totalPartidos, i).Size = New Size(33, 20)
                BotonEquipo1(totalPartidos, i).Location = New Point(x, 20)
                Partidos(totalPartidos).Controls.Add(BotonEquipo1(totalPartidos, i))
     
                ReDim BotonEquipo2(totalPartidos, i)
                BotonEquipo2(totalPartidos, i) = New Button
                BotonEquipo2(totalPartidos, i).Size = New Size(33, 20)
                BotonEquipo2(totalPartidos, i).Location = New Point(x, 55)
                Partidos(totalPartidos).Controls.Add(BotonEquipo2(totalPartidos, i))
     
                x = x + separacion
     
            Next
     
            Me.Controls.Add(Partidos(totalPartidos))
            totalPartidos = totalPartidos + 1
        End Sub
        Sub CrearFormulario()
            Dim tabla As OdbcDataReader
            Dim conex As New Conexion
            Dim contador As Integer = 0
            Dim x As Integer = 100
            Dim separacion As Integer = 75
            tabla = conex.consultar("select *from tipoapuesta where codDeporte = " & codDeporte)
            While tabla.Read
                logros(contador) = New Label
                logros(contador).Text = tabla.GetValue(2)
                logros(contador).Location = New Point(x, 40)
                logros(contador).AutoSize = True
                Me.Controls.Add(logros(contador))
                contador = contador + 1
                x = x + separacion
            End While
            totalLogros = contador
        End Sub
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            CrearFormulario()
            mostrarJuegos()
        End Sub
        Sub mostrarJuegos()
            Dim fecha As String
            Dim sql As String
            Dim Conex As New Conexion
            Dim Tabla As OdbcDataReader
            fecha = Format(Now, "yyyy-MM-dd")
            sql = "SELECT codPartido,fecha,horaInicio, a.nombre,b.nombre FROM partidos p, equipos a, equipos b WHERE p.nombreEA = a.codEquipo AND p.nombreEB = b.codEquipo AND fecha='" & fecha & "'"
            Tabla = Conex.consultar(sql)
            While Tabla.Read
                CrearPartido(Tabla(3), Tabla(4))
            End While
     
     
        End Sub
     
    End Class
 
No se como explicartelo de mejor manera amigo jejeje y disculpa la molestia..