Dim index As Integer = 0
   Do
      For i As Integer = lv.Items.Count - 1 To index + 1 Step -1
         If lv.Items(i).Text = lv.Items(index).Text AndAlso _
            lv.Items(i).SubItems(1).Text = lv.Items(index).SubItems(1).Text Then
            lv.Items(i).Remove()
         End If
      Next i
      index += 1
   Loop While index < lv.Items.Count