Private Sub CheckControls()

Dim contr As control

For Each contr In Controls
    If TypeName(contr) = "ListBox" Then
        Select Case contr.Name
            Case "ListBox1":
            Case "ListBox2":
            Case "ListBox3":
            'and so on....
        End Select
    End If
Next contr

End Sub

经过一点故障排除，我想我在控件集合中找到了答案。在每个列表框中，我调用一个过程，该过程采用现有列表框索引、topIndex（在使用滚动条时很有用）和它自己的名称。

Private Sub lbox_gl_account_Change()
  Call arrangeIndexOfLabels(Me.lbox_gl_account.listIndex, 
  Me.lbox_gl_account.topIndex, Me.ActiveControl.Name)
End Sub

arrangeIndexOfLabels过程循环访问集合中的所有控件，并且只影响类型为ListBox的控件。它更新除活动ListBox之外的所有ListBox的listIndex和topIndex。

'Change index location of other listbox items according to the selected one
Private Sub arrangeIndexOfLabels(lngListIndex As Long, lngTopIndex As Long, strActiveControl As String)
Dim ctrlItem As Control
For Each ctrlItem In Me.Controls
    If TypeName(ctrlItem) = "ListBox" Then
        'Only changing index position of other list boxes than selected
        If ctrlItem.Name <> strActiveControl Then
            ctrlItem.listIndex = lngListIndex
            ctrlItem.topIndex = lngTopIndex
        End If
    End If
Next ctrlItem

末端子组件