Hi Alejandro,

>The VB code for this function.
>
>Dim objMy As acode1
>Dim r As Object
>Dim hlon As String, hlat As String, Rv As Double, Glon As String, GLat As String
>Dim Dearth As Double, ra As String, dec As String, asize As Double
>Dim elong As Double, phs As Double, mag As Double
>
>Set objMy = New acode1
>Set r = objMy.calcplanets("12/23/1997", "12:15", 89.03, 6, 42.41, "W", _
> "JUP", 4, hlon, hlat, Rv, Glon, GLat, Dearth, ra, dec, asize, elong, phs, mag, False)

I don't know much VB, but this surely looks like a COM object creation, not a DLL call. In VFP it would be something like:

objMy = CreateObject( "xyz.acode1" )
objMy.CalcPlanets(...)

Christof