Snip...
>Your original lstSource.dblclick was like this :
>

>THIS.Parent.lstSelected.AddItem(THIS.List(THIS.ListIndex))
>This.RemoveItem(THIS.ListIndex)
>THIS.Parent.Refresh
>

>Would be replaced with :
>

>with this.parent.lselected
>  .addlistitem(THIS.List(THIS.ListIndex),THIS.ListIndex,1)
>  .addlistitem(THIS.List(THIS.ListIndex,2),THIS.ListIndex,2)
>endwith
>This.RemoveItem(THIS.ListIndex)
>THIS.Parent.Refresh
>

>For this to work both lists would have two columns (code in second column). If you want to have only "code" in right list then just set boundcolumn in lstSource to code column and use your original syntax.
>Cetin
Ooops. To make sure you have unique ItemIDs instead of "this.listindex" use something like ".listcount+1" :

with this.parent.lselected
  .addlistitem(THIS.List(THIS.ListIndex),.listcount+1,1) 
  .addlistitem(THIS.List(THIS.ListIndex,2),.listcount,2) 
endwith

Cetin