Function LoadForm() As IFormNodeP
Dim XFDL As XFDL
' Get the XFDL object. You need this to call the ReadForm function.
Set XFDL = CreateObject("PureEdge.xfdl_XFDL")
' Call XFDL.ReadForm. The parameters are:
' 1. calculateAge.xfd : indicates the file on the local drive to read
' the form from.
' 2. 0 : no special behavior.
' readForm will return a reference to the root node of the
' new form structure once it is loaded into memory. An exception
' will be thrown if there is a problem.
Set LoadForm = XFDL.ReadForm("c:\calculateage.xfd", 0)