DEFINE CLASS MyNativeData AS CUSTOM OLEPUBLIC FUNCTION GetRealFacts As String USE tableFullOfFacts LOCAL lcXml CURSORTOXML("tableFullOfFacts", "lcXml") USE IN tableFullOfFacts RETURN lcXml ENDDEFINE DEFINE CLASS MyNativeProgram AS CUSTOM FUNCTION Init LOCAL oData oData = this.GetMyData() XMLTOCURSOR(oData.GetRealFacts(), "StillNativeData") SELECT tableFullOfFacts SCAN ?TheTruth ENDSCAN USE IN tableFullOfFacts RETURN FUNCTION GetMyData * Code to instantiate a class, COM object, or Web Service implementation of MyNativeData RETURN oObject ENDDEFINEHere we have a 100% native VFP program, dealing with 100% native VFP data. Do you disagree?