Hector, If you are using VFP 6.0, the vfpglry.vcx class can be used in this fashion:
*-- Get Program Version
LOCAL m.lcEXEFile
m.lcEXEFile = SYS(16,0) && Name of current EXE
DIMENSION aVerArray[1]
IF aGetFileVersion( aVerArray, m.lcEXEFile ) > 0
? aVerArray[11]
ENDIF
RELEASE aVerArray