중복제거!!

Dim n As Integer
Dim k As Integer
If Not n = k Then
For n = 0 To ListView1.Items.Count - 1
For k = ListView1.Items.Count - 1 To 0 Step -1
If ListView1.Items(n).SubItems(1).Text = ListView1.Items(k).SubItems(1).Text Then
ListView1.Items(k).Remove()
End If
Next
Next
End If이건 제가 리스트뷰1에 있는것을 중복제거할려고 만든 소스인데 전혀 안먹히네요 ㅠㅜ 문제가 무엇인가요?