SCROLL PARA OBJETOS CARREGADOS
Citação:Ainda não vi a necessidade de criar os objetos ActiveX. Você consegue simular a mesma coisa ilimitadamente usando LoadPicture
Essa é a idéia ...
Citação:um pouco de matemática
Isso que eu preciso ....
Porem ja resolvi ... do meu jeito ...
Criei uma matriz para colocar o valor do valor TOP de cada picture, pois todos os controles de um limite de tamanho (SIZE) e tambem de localização (LEFT e TOP - esqueci o valor agora), por isso que dava erro no [pic(i) = pic(i-1).Top + pic(i-1).height +4] ... os controles eram carregados mas quando chegavam no limite do TOP eles ficavam um atras do outro ...
codigo de correção ...
ReDim Preserve ScrollBarValues(1 To Me.CountPage)
ScrollBarValues(1) = 4
For i = 2 To Me.CountPage
ScrollBarValues(i) = ScrollBarValues(i - 1) + (Page(1).Height + 10)
Next
Private Sub vBar_Change()
Dim i As Long
ScrollBarValues(1) = -vBar.Value
Page(1).Top = ScrollBarValues(1)
For i = 2 To Page.UBound
ScrollBarValues(i) = ScrollBarValues(i - 1) + Page(1).Height + 10
Page(i).Top = ScrollBarValues(i)
Next
End Sub
Private Sub SetScrollMax()
vBar.Min = -4
vBar.Max = ((Page(1).Height + 10) * Me.CountPage - vBar.Min) - BackPage.Height / 15
vBar.LargeChange = vBar.Max / 15
vBar.SmallChange = vBar.LargeChange / Me.CountPage
End Sub
Arquivo em anexo pra quem precisar ...... minha contribuição para o sitio .... 
o vbar parece lerdo mas eu acho que o controle mesmo, pois o meu ScrollBar aqui parece que faz os controles correr rapidamente ...
o vbar parece lerdo mas eu acho que o controle mesmo, pois o meu ScrollBar aqui parece que faz os controles correr rapidamente ...
Tópico encerrado , respostas não são mais permitidas