Scroll array

No load do meu form tenho o código abaixo: o problema é o scroll, tenho dois como array (0) e (1) como carrega-los no final desse codigo?

Private Sub Form_Load()
Dim i, j As Integer

'Salvando posicoes iniciais
    ReDim iTops(TxtNome.LBound To TxtNome.UBound)
    ReDim iTops(TxtCliente.LBound To TxtCliente.UBound)
    ReDim iTops(TxtLocal.LBound To TxtLocal.UBound)
    ReDim iTops(TxtContrato.LBound To TxtContrato.UBound)
    ReDim iTops(TxtTelefone.LBound To TxtTelefone.UBound)
    ReDim iTops(TxtDia.LBound To TxtDia.UBound)
    ReDim iTops(TxtHora.LBound To TxtHora.UBound)

    For i = TxtNome.LBound To TxtNome.UBound
        iTops(i) = TxtNome(i).Top
    Next

For i = TxtCliente.LBound To TxtCliente.UBound
iTops(i) = TxtCliente(i).Top
Next

For i = TxtLocal.LBound To TxtLocal.UBound
iTops(i) = TxtLocal(i).Top
Next

For i = TxtContrato.LBound To TxtContrato.UBound
iTops(i) = TxtContrato(i).Top
Next

For i = TxtTelefone.LBound To TxtTelefone.UBound
iTops(i) = TxtTelefone(i).Top
Next

For i = TxtDia.LBound To TxtDia.UBound
iTops(i) = TxtDia(i).Top
Next

For i = TxtHora.LBound To TxtHora.UBound
iTops(i) = TxtHora(i).Top
Next

'Salvando posicoes iniciais
    ReDim iTops1(TxtNome1.LBound To TxtNome1.UBound)
    ReDim iTops1(TxtCliente1.LBound To TxtCliente1.UBound)
    ReDim iTops1(TxtLocal1.LBound To TxtLocal1.UBound)
    ReDim iTops1(TxtContrato1.LBound To TxtContrato1.UBound)
    ReDim iTops1(TxtTelefone1.LBound To TxtTelefone1.UBound)
    ReDim iTops1(TxtDia1.LBound To TxtDia1.UBound)
    ReDim iTops1(TxtHora1.LBound To TxtHora1.UBound)

    For j = TxtNome1.LBound To TxtNome1.UBound
        iTops1(j) = TxtNome1(j).Top
    Next

For j = TxtCliente1.LBound To TxtCliente1.UBound
iTops1(j) = TxtCliente1(j).Top
Next

For j = TxtLocal1.LBound To TxtLocal1.UBound
iTops1(j) = TxtLocal1(j).Top
Next

For j = TxtContrato1.LBound To TxtContrato1.UBound
iTops1(j) = TxtContrato1(j).Top
Next

For j = TxtTelefone1.LBound To TxtTelefone1.UBound
iTops1(j) = TxtTelefone1(j).Top
Next

For j = TxtDia1.LBound To TxtDia1.UBound
iTops1(j) = TxtDia1(j).Top
Next

For j = TxtHora1.LBound To TxtHora1.UBound
iTops1(j) = TxtHora1(j).Top
Next

'inicio
    Scroll.Min = 0

'fim dos texts.
    Scroll.Max = 3196

'passos
    Scroll.SmallChange = 100
    Scroll.LargeChange = 100

End Sub