>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.
with this.parent.lselected .addlistitem(THIS.List(THIS.ListIndex),.listcount+1,1) .addlistitem(THIS.List(THIS.ListIndex,2),.listcount,2) endwithCetin