VB - Remove duplicates from ListBoxes

[joltremari]

Public Sub RemoveDups(ListName As ListBox)
 
'REMOVE DUPLICATES
 
    With ListName    
        For i = 0 To .ListCount - 1
            For j = .ListCount To (i + 1) Step -1
            
                If .List(j) = .List(i) Then                    
                    .RemoveItem j
                End If
               
            Next
        Next
    End With
 
End Sub 
 
 
 
'USAGE
 
RemoveDups List1

[crptcblade]

I prefer the API route, but they both work fine...

Option Explicit
 
Private Declare Function SendMessageStr Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _
                                                                           ByVal wMsg As Long, _
                                                                           ByVal wParam As Long, _
                                                                           ByVal lParam As String) _
                                                                           As Long
 
Private Const LB_ERR = (-1)
Private Const LB_FINDSTRINGEXACT = &H1A2
 
Private Sub Command1_Click()
    RemoveDuplicates List1
End Sub
 
Private Sub RemoveDuplicates(lst As ListBox)
Dim lPos As Long, x As Long
 
    For x = (lst.ListCount - 1) To 0 Step (-1)
        lPos = SendMessageStr(lst.hwnd, LB_FINDSTRINGEXACT, _
                              LB_ERR, lst.List(x))
        
        While ((lPos <> LB_ERR) And (lPos <> x))
            Call lst.RemoveItem(lPos)
            lPos = SendMessageStr(lst.hwnd, LB_FINDSTRINGEXACT, _
                                  LB_ERR, lst.List(x))
        Wend
    Next
 
End Sub