mdlMeasure_elmDscrArea : is this changed in connect version

if have this function that works in V8i version :

Private Function CalculateArea(ByRef area As Double, ByRef perimeter As Double, ByRef desc As Long) As Boolean
Dim cExpression As String
cExpression = "mdlMeasure_elmDscrArea(" & VarPtr(area) & "," & VarPtr(perimeter) & "," & desc & ")"
CalculateArea = (0 = GetCExpressionValue(cExpression))
End Function

when I try this in Connect version, it gives me the error "method 'getcexpressionvalue of object _application failed.

what can be wrong here ?

Parents Reply Children