Botones Dinamicos

[snowdogs]

Hola Aquaventus como estas? porfin logre hacer los botones ahora tengo otro problemita que creo es mas facil.. lo que quiero hacer es:

Si se me crean por ejemplo 8 botones, quiero hacer que por lo menos si presiono el boton 1 al presionar el boton 2 me salga un msj diciendo que esa combinacion no esta permitida y no haga nada.. hay varias combinaciones que no son permitidas..

El codigo que tengo para crear los botones es este:

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
 

Espero me puedas ayudar con algo de codigo amigo, que estes bien y disculpa tanta molestia.