要删除在多选listbox中选中的项目的基本思想是从最后循环所有的项目，测试每个项目的Selected属性是否为真。
比如，你建立一个名称为list1的多选listbox，上面有项目1，项目2，项目3，项目4，项目5。然后将多选listbox的MultiSelecti属性设置为Extended或者Simple。然后建立一个名称为cmdDeleteListItems_Click的按钮，然后加入下面的代码：
Private Sub cmdDeleteListItems_Click()
Dim i As Integer
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) Then List1.RemoveItem i
Next i
End Sub
歪歪说：这样就可以了:)
南海说：删除所有的项目，可以这样写8-)
Private Sub cmdDeleteListItems_Click()
Dim i As Integer
For i =0 to List1.ListCount - 1
List1.RemoveItem 0
Next i
End Sub
