>IF VERSION() = "Visual FoxPro 06" > oRegistry = NewObject("Registry", HOME() + "FFC\Registry") >ELSE > SET PROCEDURE TO HOME() + "samples\classes\registry.prg" ADDITIVE > oRegistry = CreateObject("Registry") >ENDIF >