Este era o código gerado:

*** Setup code: DO NOT REMOVE
if not pemstatus(This, '__VFPSetup', 5)
 This.AddProperty('__VFPSetup', 1)
 This.Init()
endif
*** End of Setup code: DO NOT REMOVE

OBS.: Este é o mesmo código que era gerado no VFP 8.

Um abraço!