C# Online Compiler | .NET Fiddle

Imports System
Imports System.Linq
Imports System.Collections.Generic
				
Public Module Module1
	Public Sub Main()
		Dim studentList = New List(Of Student) From {
        New Student() With {.StudentID = 1, .StudentName = "John", .Age = 13},
        New Student() With {.StudentID = 2, .StudentName = "Moin", .Age = 21},
        New Student() With {.StudentID = 3, .StudentName = "Bill", .Age = 18},
        New Student() With {.StudentID = 4, .StudentName = "Ram", .Age = 20},
        New Student() With {.StudentID = 5, .StudentName = "Ron", .Age = 15}
    }
		
		Dim orderByResult = From s In studentList
                   Order By s.StudentName  
                   Select s

		Dim orderByDescendingResult = From s In studentList
                   Order By s.StudentName Descending
                   Select s

		Console.WriteLine("Ascending Order")
				
		For Each stud As Student In orderByResult
			Console.WriteLine(stud.StudentName)
		Next
		
		Console.WriteLine("Descending Order")
			
		For Each stud As Student In orderByDescendingResult
			Console.WriteLine(stud.StudentName)
		Next
		
	End Sub
End Module

	Public Class Student
		Private _studentID As integer
		Private _studentName As string
		Private _age As integer
		
		Property StudentID() As integer
			Get
				Return _studentID
        	End Get
			Set(ByVal Value As integer)
				_studentID = Value
        	End Set
		End Property
		
		Property StudentName() As string
			Get
				Return _studentName
        	End Get
			Set(ByVal Value As string)
				_studentName = Value
        	End Set
		End Property
		
		Property Age() As integer
			Get
				Return _age
        	End Get
			Set(ByVal Value As integer)
				_age = Value
        	End Set
		End Property
		
		
	End Class

 
Imports System
Imports System.Linq
Imports System.Collections.Generic
                
Public Module Module1
    Public Sub Main()
        Dim studentList = New List(Of Student) From {
        New Student() With {.StudentID = 1, .StudentName = "John", .Age = 13},
        New Student() With {.StudentID = 2, .StudentName = "Moin", .Age = 21},
        New Student() With {.StudentID = 3, .StudentName = "Bill", .Age = 18},
        New Student() With {.StudentID = 4, .StudentName = "Ram", .Age = 20},
        New Student() With {.StudentID = 5, .StudentName = "Ron", .Age = 15}
    }
        
        Dim orderByResult = From s In studentList
                   Order By s.StudentName  
                   Select s
​
        Dim orderByDescendingResult = From s In studentList
                   Order By s.StudentName Descending
                   Select s
​
        Console.WriteLine("Ascending Order")
                

Item that only appeared once is: 8
Number of items in the original collection: 11
Number of items in the dictionary: 6