Cita:
Iniciado por ComprasDesdeCasa 
No entiendo que es lo que necesitas exactamente...
Saludos.
Lo que intento haces es lo siguiente:
tengo 2 picturebox uno grande llamado areaprods y dentro de este uno pequeño con index 0 llamado botonprods.
este ultimo lo uso para generar un control dinámico en tiempo de ejecución, básicamente genero tantos como datos tengo en una tabla de mi db. Ademas de que tengo un control de columnas para que cada 4 botonprods me haga un enter por asi decirlo y siga agregando debajo.
Como mi picturebox areaprods esta limitado por tamaño a solo mostrar 4 columnas y 3 filas solo puedo mostrar hasta 12 elementos, los demás los sigue agregando debajo pero no se ven.
por este motivo quería poner un scrollbar vertical para poder desplazarme, les dejo el código de mi scrollbar:
Código:
Private Sub VScrollProd_Change()
Call VerticalScroll
End Sub
Private Sub VScrollProd_Scroll()
Call VerticalScroll
End Sub
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 indice As Integer
For i = 0 To ind - 1
Next i
indice = botonprods.Count
nProds = indice / 4
AltoBt = botonprods(i).Height + 49
AltoTotBt = AltoBt * nProds
x = VScrollProd.Value
a = AltoTotBt - areaprods.Height
l = (a * x) / 100
botonprods(i).Top = -1
End Sub
por algun motivo no me funciona mi scroll pero tampoco obtengo error.
