{NeoBook Function} Version=5.70 Param=[%1]|Text|ListBox1 moving item FROM Param=[%2]|Text|Listbox2 moving item TO Param=[%3]|Variable|SelectedItem Variable from originating listbox {End} If "[%3]" "<>" "" Setvar "[SelectedTextSelectedListbox]" "[%3]" StrParse "[SelectedTextSelectedListbox]" "[#13]" "[IndividualSelectedTextSelectedListBox]" "[STSL_LEN]" .Alertbox "test" "[IndividualSelectedTextSelected[%1]]" Loop "1" "[STSL_LEN]" "[WIL_STSL]" ListBoxFindItem "[%1]" "[IndividualSelectedTextSelectedListBox[WIL_STSL]]" "[STSL_NUM]" ListBoxDeleteItem "[%1]" "[STSL_NUM]" ListBoxAddItem "[%2]" "0" "[individualSelectedTextSelectedListBox[WIL_STSL]]" Endif Endloop Endif RefreshObject "[%2]" RefreshObject "[%1]"