'窗体上建立两个列表框，两个命令按钮，第二个列表框的多选属性设置为2-扩展
专用子命令1 _单击()
如果列表1。选择计数0然后
清单2。AddItem列表1。文本
列表1。移除项目列表1。列表索引
如果…就会结束
末端接头
专用子命令2 _单击()
如果列表2。选择计数0然后
对于i=0到列表2。列表计数- 1
如果列表2。选定然后列表1。AddItem列表2。清单（一)
然后
因为i=列表2。列表计数- 1到0步骤-1
如果列表2。选定然后列表2。移除项目我
然后
如果…就会结束
末端接头
私有子窗体_加载()
对于i=1到10
列表1。' AddItem '第我个'
然后
末端接头