Imports System
Imports System.Collections
Imports System.Collections.Specialized
Public Class MainClass
Shared Sub Main(ByVal args As String())
Dim sorted_list As SortedList
' Use a case-insensitive SortedList.
sorted_list = CollectionsUtil.CreateCaseInsensitiveSortedList()
sorted_list.Add("S", "Volleyball")
'sorted_list.Add("s", "Golf") ' Error because Sport = sport.
For Each obj As Object In sorted_list
Console.WriteLine(obj)
Next obj
End Sub
End Class