Dim intloopindex as integer intloopindex为循环变量 for intloopindex =0 to list.listcount-1 list.listcount-1是列表框中最大的列表项序号 if list.selected(intloopindex) then selected属性为列表项的选中状态,为布尔型 list2.additem list.list(intloopindex) 将选中的列表项添加到另外一个列表框中 end if 我们可根据自己需要写这段代码 next intloopindex