Here is the custom code i am using for aggregates in LookupSet :

Function SumLookup(ByVal items As Object()) As Decimal

If items Is Nothing Then

Return Nothing

End If

Dim suma As Decimal = New...