Menghapus Duplikat Item Pada ListBox – Kode VB Net

Bila Anda mempunyai Kontrol ListBox yang mempunyai item-item yang terduplikasi / sama dan ingin menghapus item yang terduplikasi tersebut, maka bisa menggunakan kode seperti ini :

Dim ar(ListBox1.Items.Count - 1) As Object

ListBox1.Items.CopyTo(ar, 0)
ListBox1.Items.Clear()

Dim i As Integer
For i = 0 To UBound(ar)
If Not ListBox1.Items.Contains(ar(i)) Then
ListBox1.Items.Add(ar(i))
End If
Next