Como classificar um array de inteiros em ordem decrescente usando um objeto de uma classe que implementa a interface ICompare

'Este exemplo mostra como classificar um array de inteiros
'em ordem crescente usando uma classe personalizada que
'implementa a interface ICompare

Module Module1
  'classe personalizada que implementa a interface ICompare
  'e fornece a implementação para o método Compare
  Class OrdemDecrescente
    Implements IComparer
    Function Compare(ByVal x As Object, ByVal y As Object) _
      As Integer Implements IComparer.Compare
      Return y < x
    End Function
  End Class

  Sub Main()
    ' cria um array de inteiros
    Dim valores() As Integer = {2, 6, 3, 1, 8, 45, 0, 12}

    'exibe os valores do array na ordem original
    For i As Integer = 0 To valores.Length - 1 Step 1
      Console.WriteLine(valores(i))
    Next

    'classifica o array em ordem decrescente
    Array.Sort(valores, New OrdemDecrescente())
    Console.WriteLine()

    'exibe os valores do array na ordem decrescente
    For i As Integer = 0 To valores.Length - 1 Step 1
      Console.WriteLine(valores(i))
    Next

    Console.ReadKey()
  End Sub
End Module