..................
哭了

Private Sub Command1_Click()
If List1.Selected(List1.ListIndex) = True Then
List1.RemoveItem List1.ListIndex
End If
End Sub

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

不知所云

Private Sub Command1_Click()
Static index As Long
If List1.ListIndex < 0 Then Exit Sub
If List1.Selected(List1.ListIndex) = True Then
index = List1.ListIndex
List1.RemoveItem List1.ListIndex
If index <= List1.ListCount - 1 Then
List1.ListIndex = index
ElseIf index - 1 >= 0 Then
List1.ListIndex = index - 1
End If
End If
End Sub

to f15
dim is available

呵呵！

[谢谢挑错] ----XR.Mao