实现滚动条无关联的绑定到某一容器

Private Sub vsHPIC_Change()

    vsHPIC.Max = Control.Height - vsHPIC.Height
   
    vsHPIC.LargeChange = 2000
   
    Control.Top = -vsHPIC.Value
   
End Sub
说明：vsHPIC滚动条，Control是Picture中被控制的页面,这足以实现滚动条的实现，很简明的代码，细节上需要大家细化！