Imports System
Imports System.IO
Imports System.Reflection
Imports System.Linq
Imports System.Xml.Linq
Public Class MainClass
Public Shared Sub Main
Dim doubles = New Double() {1.7, 2.3, 1.9, 4.1, 2.9}
Dim sortedDoubles = From dbl In doubles _
Order By dbl Descending
Console.WriteLine("The doubles from highest to lowest:")
For Each d In sortedDoubles
Console.WriteLine(d)
Next
End Sub
End Class