VB.Net by API/System.Collections.Specialized/CollectionsUtil

CollectionsUtil.CreateCaseInsensitiveSortedList

<source lang="vbnet">

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

 </source>