我来帮你搞定这个VB6滚动条的问题！你当前的核心问题是滚动逻辑设计有误——你现在逐个移动容器内的控件，再加上滚动条的位置没固定，导致滚动时整个界面都跟着偏移。咱们一步步修正：

一、先修正代码里的低级错误 #

这些小问题会先导致代码运行异常：

• 变量拼写错误：Private old Post As Integer 要改成 Private oldPos As Integer（变量名不能有空格）
• 控件名笔误：cmbAddTipo(index - 1) 应该是 cmbAddType(index - 1)；cmbAdd Link 是非法命名（VB6控件名不能有空格），统一改成cmbAddLink
• 冗余变量：indicee 完全没用，直接删掉，初始显示的控件用pic1(0)即可

二、重构滚动逻辑（核心修复） #

正确的滚动方式应该用容器整体偏移，而不是逐个移动控件，步骤如下：

1. 设计时准备控件 #

• 在窗体上添加一个VScrollBar控件，命名为scrollAdd，固定它的位置（比如设置Left = 窗体宽度 - 滚动条宽度，Top = 0，Height = 窗体高度，确保它不会随内容移动）
• 添加一个大的PictureBox容器，命名为picContainer，设置它的Left = 0，Top = 0，Width = 窗体宽度 - scrollAdd.Width，Height = 窗体高度，并且把你设计时创建的pic1(0)、lblType(0)等所有初始控件都拖到picContainer里

2. 修正后的完整代码 #

Option Explicit
Private oldPos As Integer ' 修正拼写错误
Dim index As Integer

Private Sub btnAdd_Click()
    index = index + 1
    
    ' 加载并设置新的pic1容器
    Load pic1(index)
    pic1(index).Visible = True
    pic1(index).Top = pic1(index - 1).Top + pic1(index - 1).Height + 20
    Set pic1(index).Container = picContainer ' 放在大容器里
    
    ' 加载lblType
    Load lblType(index)
    Set lblType(index).Container = pic1(index)
    lblType(index).Visible = True
    lblType(index).Top = lblType(0).Top ' 用初始控件的Top值，避免依赖上一个控件的错误
    
    ' 加载cmbAddType
    Load cmbAddType(index)
    Set cmbAddType(index).Container = pic1(index)
    cmbAddType(index).Visible = True
    cmbAddType(index).Top = cmbAddType(0).Top
    
    ' 加载lblAddPrefix
    Load lblAddPrefix(index)
    Set lblAddPrefix(index).Container = pic1(index)
    lblAddPrefix(index).Visible = True
    lblAddPrefix(index).Top = lblAddPrefix(0).Top
    
    ' 加载txtAddPrefix
    Load txtAddPrefix(index)
    Set txtAddPrefix(index).Container = pic1(index)
    txtAddPrefix(index).Visible = True
    txtAddPrefix(index).Top = txtAddPrefix(0).Top
    
    ' 加载lblAddNum
    Load lblAddNum(index)
    Set lblAddNum(index).Container = pic1(index)
    lblAddNum(index).Visible = True
    lblAddNum(index).Top = lblAddNum(0).Top
    
    ' 加载txtAddNumber
    Load txtAddNumber(index)
    Set txtAddNumber(index).Container = pic1(index)
    txtAddNumber(index).Visible = True
    txtAddNumber(index).Top = txtAddNumber(0).Top
    
    ' 加载chkAddPrincipal
    Load chkAddPrincipal(index)
    Set chkAddPrincipal(index).Container = pic1(index)
    chkAddPrincipal(index).Visible = True
    chkAddPrincipal(index).Top = chkAddPrincipal(0).Top
    
    ' 加载lblAddVin
    Load lblAddVin(index)
    Set lblAddVin(index).Container = pic1(index)
    lblAddVin(index).Visible = True
    lblAddVin(index).Top = lblAddVin(0).Top
    
    ' 加载cmbAddLink（修正控件名，去掉空格）
    Load cmbAddLink(index)
    Set cmbAddLink(index).Container = pic1(index)
    cmbAddLink(index).Visible = True
    cmbAddLink(index).Top = cmbAddLink(0).Top
    
    ' 更新滚动条的Max值，确保能滚动到最底部
    Dim totalHeight As Integer
    totalHeight = pic1(index).Top + pic1(index).Height
    scrollAdd.Max = totalHeight - picContainer.Height
    If scrollAdd.Max < 0 Then scrollAdd.Max = 0 ' 防止内容不足时滚动条无效
End Sub

Private Sub Form_Load()
    scrollAdd.Min = 0
    scrollAdd.SmallChange = Screen.TwipsPerPixelY * 10 ' 用Y方向的Twips，因为是垂直滚动
    scrollAdd.LargeChange = scrollAdd.SmallChange * 3
    
    ' 初始化滚动条Max值
    Dim initialHeight As Integer
    initialHeight = pic1(0).Top + pic1(0).Height
    scrollAdd.Max = initialHeight - picContainer.Height
    If scrollAdd.Max < 0 Then scrollAdd.Max = 0
End Sub

Private Sub scrollAdd_Change()
    ScrollContainer
End Sub

Private Sub scrollAdd_Scroll()
    ScrollContainer
End Sub

Private Sub ScrollContainer()
    ' 直接移动大容器的Top属性，实现整体滚动
    picContainer.Top = -scrollAdd.Value
    oldPos = scrollAdd.Value
End Sub

3. 关键逻辑说明 #

• 我们用picContainer作为所有动态控件的父容器，滚动时只需要改变这个容器的Top值（取负的滚动条值），就能让所有内容整体上下移动，不会带动窗体或滚动条本身
• 每次添加控件后，重新计算内容的总高度，设置滚动条的Max值为总高度 - 容器可见高度，这样滚动条就能刚好滚动到最后一个控件
• 滚动条的SmallChange用Screen.TwipsPerPixelY，因为是垂直滚动，和Y方向的单位匹配

三、测试注意事项 #

• 确保设计时的初始控件（pic1(0)等）都已经放在picContainer里
• 滚动条scrollAdd要固定在窗体右侧，不要放在任何容器内
• 运行后点击btnAdd添加控件，拖动滚动条就能正常查看所有内容，不会再带动窗体移动

内容的提问来源于stack exchange，提问作者Franqo Balsamo