probleme avec new listbox

Bonjour a tous,
j'avais envi de creer mes objets pendant l'execution du programme mais
apparement je m'y prends mal :D
Je demarre un nouveau projet et j'ai donc qu'une form et rien d'autre.
J'ai mis un bouton et ça dedans :

Code:

---

1 2 3

Dim toto As New ListBox   toto.Visible = True

---

et en retour j'ai ceci :

Citation:

---

Invalid use of new keyword

---

?

J'utilise VB5.

Bon, j'avais trouvé un bout d'code bien sympas mais ça me genere un
autre message d'erreur...decidement :?

Code:

---

1 2 3 4 5 6

Dim ctlName As Control   Set ctlName = Form1.Controls.Add("VB.TextBox", "Text1", Form1)   ctlName.Visible = True

---

Citation:

---

Object doesn't support this property or methode

---

Je fini par me d'mander si c'est possible sous vb5...:(

Il y a une demi solution
tu poses sur ta feuille un composant que veux avoir, tu lui donne dans la propriété index la valeur 0.
A partir de la, ti*u peux ajouter autant de composant que tu veux pour ce type
Exemple : un TextBox

Code:

---

1 2 3

For iPnt =1 ro 5 AddTextBox iPnt next

---

Code:

---

1 2 3 4 5

Sub AddTextBox(NumeroIndex as integer) Load Text1(NumeroIndex) Text1(numeroIndex).move Text1(numeroIndex-1).left,Text1(numeroIndex-1).Top+Text1(numeroIndex-1).Height Text1(numeroIndex-1).Visible=true end sub

---

Merci Delbeke. Bon apparement ça fonctionne qu'a partir de VB6, tant pis :?

lol, ca fontionnait déjà en vb2 :D mdr

Oui heu en fait je parlais du mien qui marche pas :? , le tiens fontionne, je
l'sait depuis longtemps, mais en fait je voulais partir de rien. N'en parlons plus
et encore merci ;) .