VB中listbox中怎么选中多项并且删除，求代码！

Question

VB中listbox中怎么选中多项并且删除，求代码！
listbox中数据来自access

Answer 1

MultiSelect属性设为2，下面代码删除（帖子限制100字，只能简单的写写了）
Dim i
GR:
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
List1.RemoveItem i
GoTo GR
End If
Next i