Yes, here's some code...

For List1.dblclick method (where fields are selected)
******************************************************
IF ! "\" $ thisform.list1.list(thisform.list1.listitemid,2)
STORE thisform.list1.list(thisform.list1.ListItemId, 2) TO fld_out(thisform.sel_max+1)
thisform.list1.picture(thisform.list1.ListIndex)= "c:\dev\a\check_sp2.bmp"
thisform.list2.AddListItem(fld_out(thisform.sel_max+1))
thisform.list1.list(thisform.list1.listitemid,2) = "\"+thisform.list1.list(thisform.list1.listitemid,2)
thisform.sel_max = thisform.sel_max + 1
ENDIF

thisform.refresh
******************************************************

For List2.dblclick method
******************************************************
* DESELECT
IF this.ListCount > 0
* Get this item name and delete from array
lcthisitem = thisform.list2.List(thisform.list2.ListItemId,1)
lnTarget = ASCAN(fld_out, lcthisitem)
ADEL(fld_out, lnTarget)

* Remove from List2
FOR i=1 TO thisform.list2.ListCount
IF thisform.list2.list(i,1) = lcthisitem
thisform.list2.RemoveListItem(i)
ENDIF
NEXT
* Deselect in List1
FOR i=1 TO thisform.list1.ListCount
IF thisform.list1.list(i,2) = lcthisitem
* Take out "\"
******* Original attempt **** did not work ********
thisform.list1.list(thisform.list1.listitemid,2) = SUBSTR(thisform.list1.list(thisform.list1.listitemid,2),2)

**** Then I thought it might work like a toggle, so I added "\" again ****
**** It did no good ***

*!* thisform.list1.list(i,2) = "\"+thisform.list1.list(i,2)
ENDIF
NEXT
thisform.sel_max = thisform.sel_max - 1

thisform.refresh
ENDIF
***********************************************

Thanks for looking at it for me! - Steve