Imports System
Public Class Program
Public Shared Sub Main()
Dim arr As Integer() = New Integer() {9, 7, 3, 5, 0, 6}
Array.Sort(Of Integer)(arr, New Comparison(Of Integer)(Function(a, b) b.CompareTo(a)))
For Each n As Integer In arr
Console.WriteLine(n)
Next
End Sub
End Class
' run:
'
' 9
' 7
' 6
' 5
' 3
' 0
'