[mw_shl_code=vbnet,true]Namespace HelloWorld

    Module Main

        Public Class FuncEx(Of TArg, TResult)

            Private m_function As Func(Of TArg, TResult)

            Default Public ReadOnly Property [Function](ByVal x As TArg) As FuncEx(Of TArg, TResult)
                Get
                    Return New FuncEx(Of TArg, TResult)(Me.m_function, Me.m_function(x))
                End Get
            End Property

            Public Property LastResult() As TResult

            Public Sub New(ByVal f As Func(Of TArg, TResult), Optional ByVal lr As TResult = Nothing)
                Me.m_function = f
                Me.LastResult = lr
            End Sub

            Public Overrides Function ToString() As String
                Return Me.LastResult.ToString()
            End Function

        End Class

        Public Function add(ByVal x As Object) As FuncEx(Of Object, Object)
            Static c As Object = 0
            c = c + x
            Return New FuncEx(Of Object, Object)(
                Function(y As Object)
                    Return add(y)
                End Function, c)
        End Function

        Sub Main()
            Console.WriteLine(add(2)(3))
            Console.ReadKey(False)
        End Sub

    End Module

End Namespace[/mw_shl_code]