Public Sub SortStringListLongestToShortest()
Dim items As New List(Of String)(New String() {"cat", "mouse", "lion"})
' Sort
using lambda expression.
items.Sort(Function(x As String, y As String)
Return
y.Length.CompareTo(x.Length)
End Function)
For Each element As String In items
Console.WriteLine(element)
Next
End Sub