列表框的属性: Strle=Checkbox , Sorted=true
如选中两个项目(注意不是全部),单击命令按钮把这两个项目删除?

Private Sub Command1_Click()
For i = 0 To List1.ListCount - 1
 If List1.Selected(i) Then List1.Selected(i) = False
Next
End Sub
Private Sub Form_Load()
For i = 0 To 10
 List1.AddItem i
Next
End Sub