Función sumar

Dim sum As Func(Of Integer, Integer, Integer) = Function(x, y) x + y

MessaBox(sum(4,4) = 8


Dim OpAnd As Func(Of Boolean, Boolean, Boolean) = Function(x, y) x AndAlso y

Operación And

Dim OpOr As Func(Of Boolean, Boolean, Boolean) = Function(x, y) x OrElse y