sum lists with new vb component

[tim]

Is there a way to sum lists with the new programing components?

here is what I am trying to do.

I have a list of areas that I want to sum feeding them in as var x:

  Sub RunScript(ByVal x As Object, ByVal y As Object)
    ''' <your code>
    Dim total As Double
    Dim Area As New List(Of Object)
    Dim i As Integer

    For i = 0 To UBound(x)
      total = total + x(i)
    Next
    Area.Add(total)
    A = Area
  End Sub

I keep getting errors saying "can't cast system.double to
system.array"

any help much appreciated.