'Visual Basic 6.0
'Solution for ListView Control

Option Explicit

Dim i As Integer

Private Sub Form_Load()
For i = 1 To 10
ListView1.ListItems.Add Key:="lv_" & i, Text:="ListItem #" & i
Next
End Sub

Private Sub Command1_Click()
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems("lv_" & i).Selected Then
ListView1.ListItems.Remove i
End If
Next
End Sub