اسم های تکراری در لیست باکس

یه فرم ، یه لیست باکس و یک دکمه درست کن.اینم کدش:

کد:

Private Sub Command1_Click()

Dim i As Long
Dim j As Long
    With List1
        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


Private Sub Form_Load()
For i = 1 To 10
List1.AddItem "item " & i
List1.AddItem "item " & i + 1
Next

End Sub