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 normal, case-sensitive SortedList.
sorted_list = New SortedList
sorted_list.Add("A", "A")
sorted_list.Add("a", "B")
For Each obj As Object In sorted_list
Console.WriteLine(obj)
Next obj
End Sub
End Class