Imports System
Imports System.Collections
Imports System.Collections.Specialized
Public Class MainClass
Shared Sub Main(ByVal args As String())
Dim sortedList As New SortedList
sortedList.Add("2", "T")
sortedList.Add("0", "T")
sortedList.Add("1", "O")
sortedList.Add("6", "S")
For i As Integer = 0 To sortedList.Count - 1
Console.WriteLine(sortedList.GetKey(i).ToString() & ": " & _
sortedList.GetByIndex(i).ToString())
Next i
sortedList.Clear()
End Sub
End Class