>>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 >>