controles dinamicos en tiempo de ejecucion

[gasuton]

Bueno les comento que después de estar ya no se cuantas horas en la web viendo tutoriales he logrado que me funcione, pero tengo un problema y ya no se bien por donde correr.

el sistema me muestra toda la info de mi tabla pero me pone los iconos uno debajo del otro, cuando yo quiero que lo ponga de izquierda a derecha, les dejo el codigo que tengo:

Código:

conectar

rs.Open ("select * from productos"), sisdb, adOpenStatic, adLockOptimistic
If rs.RecordCount > 0 Then
    rs.MoveLast
    rs.MoveFirst
    
    textoprods(0) = rs.Fields!nombre
    botonprods(0).Picture = LoadPicture(App.Path & (rs.Fields!ligaimg))
    If rs.RecordCount > 1 Then
        rs.MoveNext
        Let i = 1
            Do Until rs.EOF
                Load textoprods(i)
                textoprods(i).Visible = True
                textoprods(i).Left = textoprods(i).Left
                textoprods(i).Top = textoprods(i - 1).Top + textoprods(i - 1).Height + 10
                textoprods(i).Text = rs.Fields!nombre
                
                Load botonprods(i)
                botonprods(i).Visible = True
                botonprods(i).Left = botonprods(i).Left
                botonprods(i).Top = botonprods(i - 1).Top + botonprods(i - 1).Height + 10
                botonprods(i).Picture = LoadPicture(App.Path & (rs.Fields!ligaimg))
                
                rs.MoveNext
                i = i + 1
            Loop
        End If
End If

sisdb.Close

textoprods es un textbox
botonprods en un pictbox

Segun yo tengo entendido, la siguiente linea de comando es para que me alinea uno a la derecha del otro.:

Código:

textoprods(i).Left = textoprods(i).Left

pero no funciona.