Drag and drop entre listes

Bonjour,

Je souhaiterais réaliser un drag and drop entre deux listes.
Pour cela, a l'initialisation de ma fenêtre (popup), j'ai initialisé les champs:

Code:

---

1 2	LISTE_src..DndSource = dndProgrammé LISTE_SansNom1..DndCible = dndProgrammé

---

Dans le chargement de la fenêtre côté navigateur, voici ce que je fais:

Code:

---

1 2 3

DnDEvénement("DebutGlisser",LISTE_SansNom1,dndDébutGlisser) DnDEvénement("SurSurvol", LISTE_SansNom1, dndSurvol) DnDEvénement("SurLâcher", LISTE_SansNom1, dndLâcher)

---

Et voici le détail des procédures:

DebutGlisser:

Code:

---

DnDDonne(CF_TEXT,LISTE_src)

---

SurSurvol:

Code:

---

DnDAccepte(dndDéplacer)

---

SurLâcher:

Code:

---

1 2	DnDRécupère(CF_TEXT) DnDAccepte(dndDéplacer)

---

Cependant le seul fait de déplacer un élément depuis la liste source vers la liste cible ne fonctionne pas, l'icône de la souris ne change même pas.
Si je fais le test depuis un autre champ source (image par exemple), le curseur change bien.
Autre question, comment gérer ensuite l'ajout de l'élément source dans la liste de destination ?

Merci d'avance.