VB.Net by API/System.Collections/ICollection
ICollection.CopyTo
<source lang="vbnet">
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
</source>