How to select duplicates in a listbox ?

[Mostafa Salaheldien]

Hello everyone,

i want to select all duplicates items in my listbox but its select all expect 1 i want to select all duplicates items in my list

For Row As Int16 = 0 To Listrate.Items.Count - 2
For RowAgain As Int16 = Listrate.Items.Count - 1 To Row + 1 Step -1
If Listrate.Items(Row).ToString = Listrate.Items(RowAgain).ToString AndAlso Listrate.Items(Row).ToString.Length = Listrate.Items(RowAgain).ToString.Length Then
Listrate.SetSelected(RowAgain, True)
End If
Next
Next
Thanks in advance

Continue reading...