One thing I do is

use miForm.scx noedit
report form repForm preview

in the report I use the fields Baseclass, Parent, Properties and Methods to print the content of the Form.

c.x.

>Dear Experts
>
>I want to get all source codes used in Form1.
>Source must include object name as
>
>Form1.command1.click
>Thisform.text1.setfocus
>
>Please help