Texto en Botones Visual Basic 2010

[snowdogs]

Buenos Dias amigo vengo a pedirles algo de ayuda para colocarle un texto y valor a unos botones que son creados dinamicamentes con una base de dato mysql..

El codigo que tengo es el siguiente:

Código vb:

Imports System.Data.Odbc
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
    Dim NombreLogroEquipo1(,) As Label
    Dim NombreLogroEquipo2(,) As Label
    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 NombreLogroEquipo1(totalPartidos, i)
            NombreLogroEquipo1(totalPartidos, i) = New Label
            NombreLogroEquipo1(totalPartidos, i).Size = New Size(33, 20)
            NombreLogroEquipo1(totalPartidos, i).Location = New Point(x, 30)
            Partidos(totalPartidos).Controls.Add(NombreLogroEquipo1(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))
 
            ReDim NombreLogroEquipo2(totalPartidos, i)
            NombreLogroEquipo2(totalPartidos, i) = New Label
            NombreLogroEquipo2(totalPartidos, i).Size = New Size(33, 20)
            NombreLogroEquipo2(totalPartidos, i).Location = New Point(x, 30)
            Partidos(totalPartidos).Controls.Add(NombreLogroEquipo2(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
 

Este codigo me genera lo siguiente: http://imageshack.us/photo/my-images/571/pantallax.jpg/

[Aquaventus]

snowdogs si vas a preguntar algo en un hilo ya no crees otro, ya que causas desorden al momento de responder.
POST RESPONDIDO -> botones dinamicos.