I have been working on this problem for quite some time i need to add 96 listboxes and don't want to do this visual but code base so far i got this :

Private Sub Generate()
Dim ctlListBox(7, 14) As New listBox
Dim ctlTekst As Control
Dim intGegevensX As Integer, intGegevensY As Integer
Dim frm As Form

intGegevensX = 500
intGegevensY = 300

Dim I As Integer, J As Integer

For I = 0 To 13
For J = 0 To 6
Set ctlListBox(J, I) = CreateControl(frm.Name, acListBox, , "", "", _
intGegevensX + (J * 750), intGegevensY + (I * 150), 700, 125)
Next J
Next I

But the problem is that i can't find a way to speak to the listboxes again. Anycan explain me how to do it ?