Function AddElements(ByVal ary1() As Double, ByVal ary2() As Double) As Double()

  Return ary1.Select(Function(e, i) e + ary2(i)).ToArray()

End Function



Sub Main()

  Dim a() As Double = {1,2,3,4}

  Dim b() As Double = {20,30,40,50}

  Array.ForEach(AddElements(a, b), AddressOf Console.WriteLine)

End Sub