Compile prg to exe (Visual Foxpro)

*--------------------------
* Cara penulisannya
* =prg2exe("c:\test.prg")
*---------------------------
FUNCTION PRG2EXE
LPARAMETERS srcPrg
* Add some error checking...
CREATE PROJECT Autoexe SAVE NOWAIT noshow
cp=application.Projects['Autoexe.pjx']
cp.files.Add(srcPrg+'.prg')
cp.SetMain(srcPrg)
rv=cp.Build(srcPrg,3)
IF rv && Built! Notify or not at your leisure
endif
cp.close
ERASE autoexe.pj?
RETURN rv