Module Module1
Sub Main()
Dim list As List(Of String) = New List(Of String)
list.Add("vb.net")
list.Add("java")
list.Add("php")
list.Add("python")
list.Add("c#")
list.Sort(Function(element1 As String, element2 As String)
Return element1.Length.CompareTo(element2.Length)
End Function)
For Each element As String In list
Console.WriteLine(element)
Next
End Sub
End Module
' run:
'
' c#
' php
' java
' vb.net
' python