Public Class ReverseComparer : Implements IComparer
Function Compare(x As Object, y As Object) As Integer Implements IComparer.Compare
Return New CaseInsensitiveComparer().Compare(y, x)
End Function
End Class
Module Module1
Sub Main()
Dim arr As String() = {"hhh", "ccc", "ggg", "bbb", "eee", "aaa", "ddd"}
Dim revComparer As New ReverseComparer()
Array.Sort(arr, revComparer)
Console.WriteLine("arr: {0}", String.Join(", ", arr))
End Sub
End Module
' run:
'
' arr: hhh, ggg, eee, ddd, ccc, bbb, aaa