今日最简单最实用问题（散分）：去除listbox中重复地址

今日最简单最实用问题（散分）：去除listbox中重复地址
设置名为list1的listbox中已有大量地址，下面要实现去除重复地址
Private Sub cmdRemove_Click(ByVal eventSender As System.Object, ByVal eventArgs As

System.EventArgs) Handles cmdRemove.Click
Dim lstcount2 As Object
Dim lstcount1 As Object
For lstcount1 = 0 To List1.Items.Count - 1
For lstcount2 = 0 To List1.Items.Count - 1
If LCase(VB6.GetItemString(List1, lstcount2)) = LCase

(VB6.GetItemString(List1, lstcount1)) Then　　　　　
List1.Items.RemoveAt(lstcount2)
End If
Next lstcount2
Next lstcount1
End Sub

问题是：
1.上面的代码添加引用Microsoft.VisualBasic.Compatibility，如何添加。我用vb6升级到vb.net 2003，自动

添加了引用。手动添加则找不到该引用。
2.上面代码虽能去除重复，但把不该去掉的也去掉了。比如有不重复十个地址，去重处理后只剩8个。该如何改

进？
3.不用vb6兼容模式，该如何写代码。

谢谢回答。