Collections VB.Net Tutorial

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