Imports System

Imports System.Linq.Expressions

​

Public Module Module1

    Public Sub Main()

        Dim pe As ParameterExpression = Expression.Parameter(GetType(Student), "s")

​

        Dim mexp As MemberExpression = Expression.Property(pe, "Age")

        Dim constant As ConstantExpression = Expression.Constant(18, GetType(Integer))

        Dim body As BinaryExpression = Expression.GreaterThanOrEqual(mexp, constant)

        Dim ExpressionTree As Expression(Of Func(Of Student, Boolean)) = 

            Expression.Lambda(Of Func(Of Student, Boolean))(body, New ParameterExpression() {pe})

        Console.WriteLine("Expression Tree: {0}", ExpressionTree)

        Console.WriteLine("Expression Tree Body: {0}", ExpressionTree.Body)

        Console.WriteLine("Number of Parameters in Expression Tree: {0}", 

                                        ExpressionTree.Parameters.Count)

        Console.WriteLine("Parameters in Expression Tree: {0}", ExpressionTree.Parameters(0))

    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

​