Imports System
Imports System.Linq
Public Class Program
Public Shared Sub Main(ByVal args As String())
Dim arr As Integer() = {1, 2, 3, 4, 5, 6}
Dim total As Integer = arr.Aggregate(Function(x, y) y + x)
' 1 + 2 = 3
' 3 + 3 = 6
' 6 + 4 = 10
' 10 + 5 = 15
' 15 + 6 = 21
Console.WriteLine(total)
End Sub
End Class
' run:
'
' 21
'