Question

vb中listbox的style属性设为1-checkbox以后，怎么可以将所选中的所有项一起删除？

Answer 1

With List1
For i = .ListCount - 1 To 0 Step -1
If .Selected(i) Then .RemoveItem i
Next i
End With

Answer 2

Dim i
i=0
Do while i<List1.ListCount
If List1.Selected(i) = true Then
List1.RemoveItem i
Else
i=i+1
End if
Loop