You can have the same result with native vfp class registry.vcx

#DEFINE ERROR_SUCCESS 0 
#DEFINE C_EXTNOFOUND_LOC "No information available for selected application."
#DEFINE C_NOREGFILE_LOC "The REGISTRY.PRG file needed for this sample could not be found in \Samples\Classes."

LOCAL oReg,regfile
LOCAL cOptionValue,cOptionName,nErrNum
PUBLIC aFoxOptions

regfile = HOME(2)+"classes\registry.prg"
IF !FILE(m.regfile)
	regfile = HOME()+"samples\classes\registry.prg"
	IF !FILE(m.regfile)
		MESSAGEBOX(C_NOREGFILE_LOC)
		RETURN
	ENDIF
ENDIF

SET PROCEDURE TO (m.regfile) ADDITIVE
oReg = CreateObject("FoxReg")
DIMENSION aFoxOptions[1,2]
m.nErrNum = oReg.EnumFoxOptions(@aFoxOptions)  
create cursor ycurs (Option c(40),Value c(100))
appe from array aFoxOptions
brow
RELEASE PROC (m.regfile)

the cursor have 193 vfp options set in registry.
this code is adapted from original vfp samples solution form: home(1)+"samples\solution\winapi\regfox.scx"