' Create a case-insensitive sorted list that combines the keys from two ' hashtables' Example:' Dim slist As SortedList = SortedListFromHashtables(hashTable1, hashTable2)Function SortedListFromHashtables(ByVal ht1 As Hashtable, _ ByVal ht2 As Hashtable) As SortedList ' Create a case-insensitive sorted list Dim list As SortedList = _ Specialized.CollectionsUtil.CreateCaseInsensitiveSortedList() ' initialize the list with all keys in first hashtable For Each key As Object In ht1.Keys list.Add(key, key) Next ' add keys from second hashtable For Each key As Object In ht2.Keys If Not ht1.Contains(key) Then list.Add(key, key) End If Next Return listEnd Function

