新建From1，新建List1（ListBox放左边），按钮Command1（数组> >> < <<放中间），List2（ListBox放右边）代码：