copie d'un objet shape sur une form

salut a tous,
je développe sous vb6, pour mon application j'ai besoin de placer un objet shape sur une feuille à chaque endroit où l'utilisateur fait un clique.
j'ai créé un objet shape de référence et je souhaiterais en faire une copie à chaque fois, que je placerai à l'endroit voulu.
mes questions:
Primo
-Existe-t-il une syntaxe pour copier mon shape de référence?
Deusio
-Admettons l'existence de plusieurs shapes sur une même feuille, comment y faire référence en utilisant une boucle? j'ai essayé la syntaxe suivante:

Code:

---

1 2 3 4 5

dim ShapeLoop as shape for each ShapeLoop in MyForm 'mes instructions '...... next ShapeLoop

---

ShpaeLoop a toujours la valeur 0, ça ne marche pas!!!

Bonsoir,

Méthode la plus simple (surtout avec ce que tu veux faire) :

- Insère sur ta Form une Shape nommée Shape1
- Donne-lui l'index 0 (propriété index)

Ensuite (exemple) :

Code:

---

1 2 3 4 5 6 7

Private Sub Command1_Click() For i = 1 To 4 Load Shape1(i) Shape1(i).Visible = True Shape1(i).Move Shape1(i - 1).Left * 1.2, Shape1(i - 1).Top + Shape1(i - 1).Height * 1.05 Next End Sub

---

Tu créeras ainsi 4 autres shapes Shape1(1),Shape1(2)...Shape1(4)
qui constitueront un groupe de contrôles indexés et que tu pourras donc traiter en tant que tels.

merci UcFoutou, j'ai essayé ce que tu m'a dit, ça marche à feu doux.