Sorting Arrays

Sorting a Pair of Key-Value Arrays:

Dim aryStateKeys() As String = {"CA", "AZ", "NV", "AK", "WA", "OR", _
"HI", "UT", "ID"}
Dim aryStateValues() As String = {"California", "Arizona", _
"Nevada", "Alaska", "Washington", "Oregon", "Hawaii", "Utah", _
"Idaho"}

Array.Sort(aryStateKeys, aryStateValues)

' New order of the arrays:
'
' aryStateKeys aryStateValues
' -----------------------------
' AK Alaska
' AZ Arizona
' CA California
' HI Hawaii
' ID Idaho
' NV Nevada
' OR Oregon
' UT Utah
' WA Washington