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.