Private Sub UserForm_Initialize()
Dim col As New Collection
Dim iList As Integer, iItem As Integer
col.Add lstEins
col.Add lstZwei
col.Add lstDrei
col.Add lstVier
For iList = 1 To 4
For iItem = 1 To 10
col(iList).AddItem "Liste " & _
iList & " - Zeile " & iItem
Next iItem
col(iList).ListIndex = 0
Next iList
End Sub