New List Boxes

[Martin Evans]

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??

[Iouri]

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
iouri@hotsheet.com

[Martin Evans]

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