Nothing

算法问题
你应当计算一个有多少个控件，每个控件有多高。
Vscroll1.max=ImgListHeard.ListImages.Count

Private Sub VScroll1_Change()
    For i = 1 To ImgListHeard.ListImages.Count
        OptHeard(i).Top = -VScroll1.Value+i*控件的高
    Next i
End Sub

Nothing

这是一个方法，你仔细研究一下
OptHeard(i).Top和高和下面的这几个参数相关，你仔细研究一下算法
OptHeard(i).Top = -VScroll1.Value+i*控件的高

Nothing

OptHeard(i).Top = -VScroll1.Value

晕

你不是有很多OptHeard控件吗?每个控件的高都是一样的，肯定叠在一块，你需要一个一个的向下放。

Nothing

我觉得可以不用Picture，你仔细想想我给你的代码，肯定可以的
注意：
     VScroll1.Max = ImgListHeard.ListImages.Count
     VScroll1.LargeChange = 1
     VScroll1.SmallChange = 1
     VScroll1.Value = 0
其实你已经在Load事件中计算了每个控件的高了，你需要当滚动条发生变化时再计算一次，你只需改变最上面的控件，其他的都按这个控件的相对位置进行计算就可以了。