Dim frmL(10) As frmListe 
Dim lngCount As Long 
 
lngCount = lngCount + 1 
Set frmL(IngCount) = New frmListe 
frmL(IngCount).Show

corsa(r)

"Zwei Dinge sind unendlich: Das Universum und die
menschliche Dummheit. Aber bei dem Universum
bin ich mir noch nicht ganz sicher."
(Albert Einstein)