Imports System
Imports System.Collections
Public Class Test
Public Shared Sub Main()
Dim Data As New SortedList(StringComparer.OrdinalIgnoreCase)
Data.Add("AB", 48)
Data.Add("AC", 48)
Data.Add("A-D", 48)
Data.Add("A-", 48)
for each item as String in Data.Keys
Console.WriteLine(item)
Next
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBTeXN0ZW0uQ29sbGVjdGlvbnMKClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlEaW0gRGF0YSBBcyBOZXcgU29ydGVkTGlzdChTdHJpbmdDb21wYXJlci5PcmRpbmFsSWdub3JlQ2FzZSkKRGF0YS5BZGQoIkFCIiwgNDgpCkRhdGEuQWRkKCJBQyIsIDQ4KQpEYXRhLkFkZCgiQS1EIiwgNDgpCkRhdGEuQWRkKCJBLSIsIDQ4KQpmb3IgZWFjaCBpdGVtIGFzIFN0cmluZyBpbiBEYXRhLktleXMKICAgQ29uc29sZS5Xcml0ZUxpbmUoaXRlbSkKICAgTmV4dAoJRW5kIFN1YgpFbmQgQ2xhc3MKCgoKCgoKCgoKCg==