Private Sub Command1_Click()
Dim i As Long
For i = ListView1.ListItems.Count To 1 Step -1
If ListView1.ListItems(i).Selected Then ListView1.ListItems.Remove i
Next
End Sub
我不能瞎说、免得误人子弟…这里有详细答案,地址:http://wapiknow.baidu.com/question/279151695.html?ssid=5daa8e7cabdbcdcd515ea35f02641
望采纳!
ListView1.ListItems.Remove ListView1.SelectedItem.Index