monHandle(n) as maClasse
Dim monHandle(9) as Form Dim i as Byte For i=0 to 9 monHandle(i) = new Form next
Dim i as Byte Dim flag as boolean = false ' un flag qui me dira si on a trouvé un handel "vide" while flag=false for i=0 to 9 if typeof monHandle(i) is not form monHandle(i) = new Form flag = true end if end while