vb.net listbox控件去重

http://share.freesion.com/132425/ vb.net去除listbox中的重复项

通过尝试，以下代码可以使用。感谢原作者。

 Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        ListBox1.Items.Add("use")
        ListBox1.Items.Add("use")
        ListBox1.Items.Add("use")
        ListBox1.Items.Add("china")
        Dim i, j As Integer

        For i = 0 To ListBox1.Items.Count - 1
            For j = ListBox1.Items.Count - 1 To i + 1 Step -1
                If ListBox1.Items(i) = ListBox1.Items(j) Then ListBox1.Items.RemoveAt(j) '使用remove 不能删除
            Next
        Next
    End Sub