New List Boxes

When you create a new Form in run-time mode ie

Dim frms(100) as Form
dim intform as Integer

for intform=1 to 100
set frms(intForm) = new frmMain
frms(intform).caption=intform
frms(intform).show
next intform





How do you create new Listboxes in the same manner??

Private Sub cmdAddButton_Click(Index As Integer)
Static counter As Integer
counter = counter + 1
If counter < 4 Then
Load cmdAddButton(counter)
With cmdAddButton(counter - 1)
cmdAddButton(counter).Move _
.Left + .Width + _
(10 * Screen.TwipsPerPixelX), .Top
End With
cmdAddButton(counter).Visible = True
End If
End Sub



Iouri Boutchkine
[email protected]

How do you create new listboxes? using the "NEW" method