Imports System

​

Public Module Module1

    Public Sub Main()

        Dim student as Student =    New Student() With {.StudentID = 1, .StudentName = "John", .Age = 13}       

​

        Dim isYoungerThan = Function(s, youngAge) s.Age >= youngAge 

        Console.WriteLine(isYoungerThan(student, 25))

    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