Sorry, forgot that Listviews use Icons, not bitmaps

Private Sub Listview1_Click()

If Listview1.SelectedItem.Icon = ImageList1.ListImages("XImg").ExtractIcon Then Delete

End Sub