Retrieve all keys, sort and iterate : Hashtable « Collections « VB.Net Tutorial

1. VB.Net Tutorial
2. Collections
3. Hashtable

Option Strict On

Imports System.Collections

Public Module modMain
   Public Sub Main()
      Dim airports As New Hashtable

      airports.Add("S", "SSS")
      airports.Add("X", "XXX")
      airports.Add("D", "DDD")
      airports.Add("R", "RRR")

      
      Dim keys As ICollection = airports.Keys
      Dim keysArray(airports.Count - 1) As String
      keys.CopyTo(keysArray, 0)
      Array.Sort(keysArray)
      For Each key As String in KeysArray
         Console.WriteLine("{0} is {1}", key, airports(key))
      Next

   End Sub
End Module

D is DDD
R is RRR
S is SSS
X is XXX