>In the Mouse Down method of the list box the following code resides
>oSource=this.listitem(listitemid)
>this.drag(1)
>
>In the Mouse Up method of the Edit box:
>this.drag(0)
>
>In the dragdrop method of the Edit Box.
>This.value=oSource.value
>this.refresh
>
>
>It doesn't work!
>What have I forgot to do?
>
>Thanks in Advance,
>
>Mike
Mike,

Your setting of oSource is not doing anything. IN the dragdrop event oSource is an object reference to the object that is being dragged, so what you want in the dragdrop is this;

THIS.Value = oSource.ListItem(oSource.ListItemId)

You can also get rid of the assignment of oSource in the mousedown of the list.