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