Mega Code Archive
SortedList GetByIndex
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