[مساعدة]

السلام عليكم

تفضلي الكود

كود :

Dim mSortedList As New SortedList(Of Integer, String)
For i = 0 To ListBox1.Items.Count - 1
    mSortedList.Add(ListBox1.Items(i), ListBox2.Items(i))
Next
ListBox1.Items.Clear()
ListBox2.Items.Clear()
For i = 0 To mSortedList.Count - 1
    ListBox1.Items.Add(mSortedList.Keys(i))
    ListBox2.Items.Add(mSortedList.Values(i))
Next