Найти одинаковые значения (строки) в ListBox - Visual Basic .NET

Формулировка задачи:

Как найти одинаковые элементы в listbox ? в listbox используется datasource Пытался ___________

Dim qa As Integer = 0
        While qa < ListBox4.Items.Count 'перебираем элементы
           If ListBox4.Items.IndexOf(ListBox4.Items(qa)) < qa Then 'ищем было ли до этого такие же
               label1.text="Одинаковые элементы"
               qa = qa - 1
           End If
            qa = qa + 1
        End While

Решение задачи: «Найти одинаковые значения (строки) в ListBox»

textual
                            Листинг программы 
                        

                                    Dim Hs As New HashSet(Of String)
        For I As Integer = 0 To ListBox1.Items.Count - 1
            If Hs.Add(ListBox1.Items(I)) = False Then
                MsgBox("Повторяется: " & ListBox1.Items(I) & " , индекс: " & I)
            End If
        Next
                        