下面是我编写的关于删除列表框内容的代码。

Private Sub Command1_Click()
Dim a As Integer
For a = 0 To List2.ListIndex
If List2.Selected(a) = True Then
List2.RemoveItem a
End If
Next a
End Sub

这段代码运行后，只能每点击一次，才能删除一次，那位高手能帮我加点东西，使得删除上一个内容后，附近的一项内容直接被选中而可能够继续删除。谢谢

我设过了
还存在一个问题，如果删除了列表框中的最后一项，就会出现错误，我不知道怎么处理

..........................
当一个内容被删除后，会有一个被选中，因而能够继续删除。