CollectionsUtil.CreateCaseInsensitiveSortedList : CollectionsUtil « Collections « VB.Net Tutorial

1. VB.Net Tutorial
2. Collections
3. CollectionsUtil

Imports System.Collections.Specialized
Imports System.Collections

public class Test
  
   public Shared Sub Main
        Dim sorted_list As SortedList

        ' Use a normal, case-sensitive SortedList.
        sorted_list = New SortedList
        sorted_list.Add("Sport", "Volleyball")
        sorted_list.Add("sport", "Golf")        ' Okay because Sport <> sport.

        ' Use a case-insensitive SortedList.
        sorted_list = CollectionsUtil.CreateCaseInsensitiveSortedList()
        sorted_list.Add("Sport", "Volleyball")
        sorted_list.Add("sport", "Golf")        ' Error because Sport = sport.
   End Sub
   
End class

Unhandled Exception: System.ArgumentException: Item has already been added. Key in dictionary: 'Spor
t'  Key being added: 'sport'
   at System.Collections.SortedList.Add(Object key, Object value)
   at Test.Main()