Заполнить несколько ListBox

Dim lb As ListBox
 
For Each lb In UserForm
    lb.AddItem "A"
    lb.AddItem "B"
    lb.AddItem "C"
    lb.AddItem "D"
Next lb

Private Sub CommandButton1_Click()
   Dim L
   For Each L In Me.Controls
      If TypeName(L) ="ListBox" Then
         L.AddItem "0"
      End If
   Next
End Sub

   Dim lb As Control
 
   For Each lb In UserForm1.Controls
      lb.AddItem "A"
      lb.AddItem "B"
      lb.AddItem "C"
      lb.AddItem "D"
   Next lb

   Dim lb As New Collection, l
   lb.Add UserForm1.Controls("ListBox1")
   lb.Add UserForm1.Controls("ListBox2")
   For Each l In lb
      Debug.Print l.Name, TypeName(l), l.ListCount
   Next

Private Sub UserForm_Initialize()
    Dim i&, a 'As Variant
    a = Array("Иванов", "Петров", "Сидоров")
    For i = 1 To 15
        Me("ListBox" & i).List = a
    Next
End Sub

Private Sub UserForm_Initialize()
    ListBox1.AddItem "Иванов"
    ListBox1.AddItem "Петров"
    ListBox1.AddItem "Сидоров"
    
    Dim i&
    For i = 2 To 15
        Me("ListBox" & i).List = ListBox1.List
    Next
End Sub