حذف آیتم انتخاب شده از list view

[p30rex]

سلام دوستان
من یه list view دارم که می خوام آیتم هایی که انتخاب شدن حذف بشن
میشه راهنماییم کنید که چطور میتونم این کار رو بکنم؟!

ممنون

[ترانسپورتر]

با سلام-اینم کد:


Dim x As Long

Private Sub listview1_ItemClick(ByVal Item As ComctlLib.ListItem)
x = Item.Index
End Sub

Private Sub Command2_Click()
listview1.ListItems.Remove (x)
End Sub

[M.T.P]

Dim index As Integer
For index = Lvw.ListItems.Count To 1 Step -1
If Lvw.ListItems(index).Selected Then
Lvw.ListItems.Remove (index)
End If
Next