woops, when I pasted the code it did not fit into the window on one line so I removed "d as double", and forgot to edit the line x.comtest(@g,3,4,5) to x.comtest(@g,3,4). But even with the parameters being correct, it still does not work.
thanks,
Dan

>I am testing the use of ComArray. So naturally I created a simple dll in visual basic. The VB code follows:
>
>Function comtest(a() As Double, b As Double, c As Double) As Double
> comtest = a(1) + b + c
>End Function
>
>I call this from vb, NO PROBLEMO. So I call the dll in VFP 7.0
>
>x= CREATEOBJECT('Paramtest.Arraytest')
>?COMARRAY(x,0) && Just need to pass by value
>Dimension array g(3)
>g(1) = 1
>g(2) = 2
>g(3) = 3
>x.comtest(@g,3,4) && Generates an ole exception
>