代码已上传到附件，请下载
授人鱼不如授人以渔
DIY：再建立一个list2然后在Command1_Click()里面写上：（前提是你要把list1的multiselect设为2）
Private Sub Command1_Click()For i = 0 To List1.ListCount - 1If List1.Selected(i) Then List2.AddItem List1.List(i)Next i
