crear controles

[guillebomtrasmiti]

he conseguido ya que me salgan horizantales me falta que me agrupe las fechas iguales....?¿?

For i As Integer = 0 To dgestima.Rows.Count - 1
'Si alcanzo el maximo de columnas de la fila a pintar
If contador = bxf Then
'seteo el valor del contador
contador = 0
'doy la coordenada para que inicie otra fila para crear botones
y = y + anchoBoton
x = 10
End If
Dim nuevobotonProd As New Label
'Aqui le pongo primero la X y luego el codigo del producto
nuevobotonProd.Location = New Point(x, y)
nuevobotonProd.Size = New Size(altoBoton, anchoBoton)
'nuevobotonProd.Text = dgestima.Rows.Count - 1
nuevobotonProd.Text = CStr(dgestima.Rows(i).Cells(4).Value)
Me.Controls.Add(nuevobotonProd)
'Agregro evento
contador = contador + 1
'aumento la coordenada para crear otro boton en la siguiente columna
x = x + altoBoton
Next