[SOLUCIONADO] Desplazar picture Box dentro de pixture box

[gasuton]

Buenos días, ya tenia tiempo que no me pasaba por acá asique les mando un cordial saludo a todos y a los que nos compete:

Les comento mi dilema, tengo una tabla en una DB con productos, desde esta tabla creo dinamicamente en tiempo de ejecución un picturebox por producto, todos estos los creo dentro de otro picturebox mas grande, y lo que requiero es poder desplazar hacia abajo mis picturebox para poder mostrar los demás productos.

para lo que use el siguiente codigo:

Código:

Private Sub VerticalScroll()

    Dim l As Double
    Dim a As Double
    Dim x As Double
    Dim AltoBt As Integer
    Dim nProds As Integer
    Dim AltoTotBt As Integer
    Dim cant As Integer

    cant = botonprods.Count

    nProds = cant / 4
    AltoBt = botonprods(1).Height + 49
    AltoTotBt = AltoBt * nProds

    x = VScrollProd.Value
    a = AltoTotBt - areaprods.Height
    l = (a * x) / 1
    botonprods(1).Top = -l

End Sub

como ven al final de código estoy usando el botonprods id 1 y me mueve el primer producto sin problema, pero cuando he tratado de poner una variable i para que me mueva todo los productos no logro que funcione y es ese mi problema.


Espero me puedan ayudar.


Saludos.

[gasuton]

Después de darle un poco al coco modifique el código y ya me funciono un poco mejor, pero sigue sin funcionar correctamente, les dejo el código modificado y les comento que me hace:

Código:

Private Sub VerticalScroll()

    Dim l As Double
    Dim a As Double
    Dim x As Double
    Dim AltoBt As Integer
    Dim nProds As Integer
    Dim AltoTotBt As Integer
    Dim cant As Integer

    cant = botonprods.Count
    
    For i = 0 To botonprods.Count - 2
    Next

    nProds = cant / 4
    AltoBt = botonprods(i).Height + 49
    AltoTotBt = AltoBt * nProds

    x = VScrollProd.Value
    a = AltoTotBt - areaprods.Height
    l = (a * x) / 1
    For i = 0 To botonprods.Count - 1
    botonprods(i).Top = -l
    Next
    
End Sub

Como verán agregue un for para poder definir todos mis ID de los picturebox.

Pero el tema que estoy teniendo ahora, es que cuando desplazo el scroll hacia abajo me desaparecen todos los botones, en vez de desaparecer los de la primer linea, y los de la segunda subirlo a la primera, los de la tercera a la segunda, y así sucesivamente. Eso no es todo ya que cuando los regreso solo me regresa la primera linea de picturebox.... .


Espero me puedan ayudar.

[gasuton]

Hola de nuevo y perdón que moleste tanto, pero no se si mi pregunta es muy estupida o muy compleja porque nadie me ha respondido nada, pero espero me puedan ayudar.


Saludos.