新手求教···关于重复数据过滤，删除多余的··

我要提取某页面的连接···
Private Sub Command1_Click()
List1.Clear
For Each ww In WebBrowser1.Document.getElementsByTagName("a")
ss = ww.href
If right(ss, 5) = "shtml" Then
List1.AddItem ss
Frame5.Caption = "共提取到：" & List1.ListCount & "条连接"
End If
Next ww
End Sub
如何删除listbox里的重复项？ listbox 里现有多条重复值，如何能才把所有重复数据删除？
例：现listbox里以下大量数据  
http://www.baidu.com/
http://www.baidu.com/123.htm
http://www.
http://www.baidu.com/
http://www.
http://www.baidu.com/
http://www.baidu.com/123.htm
…………………
我现在需要把所有重复的数据删除：得到：
http://www.baidu.com/
http://www.baidu.com/123.htm
http://www.
http://www.
…………这样完会没有重复的
应该怎么做？
请给出例子··谢谢···