CodeItBetter Programming Another VB Programming Blog

'Controls - Duplicate Listview Item Remover
Public Sub ListViewKillDupes()
    Dim Search1 As Long
    Dim Search2 As Long
    Dim KillDupe As Long
    KillDupe = 0
    For Search1& = 1 To ListView1.ListItems.Count - 1
        For Search2& = Search1& + 1 To ListView1.ListItems.Count - 1
            KillDupe = KillDupe + 1
            If ListView1.ListItems.Item(Search1&) = ListView1.ListItems.Item(Search2&) Then
                ListView1.ListItems.Remove (Search2&)
                Search2& = Search2& - 1
            End If
        Next Search2&
    Next Search1&
End Sub
 
'Call it like this:
'
'Private Sub Command1_Click()
'   Call ListViewKillDupes
'End Sub