>Hi Naomi, I just want to -set the property in design time for all the forms in my project, I do this want to make all my forms and formsets working in mold (not moldless) status, and all my forms not based on a specific class, thank you!

I see. Well, the mistake is in not using a class, but anyway, let's concentrate on the problem on hand:

loProject = _vfp.ActiveProject

FOR lnI = 1 TO loProject.FILES.COUNT
  lcFileExt  = UPPER(JUSTEXT( loProject.FILES[lnI].NAME))
  if lcFileExt = 'SCX' && this a form file
     modify form (loProject.FILES[lnI].NAME) nowait
     aselobj(arr) && would this work?
    arr[1].WindowType = 1 && Modal 
    keyboard '{Ctrl + W}' && an attempt to close the form
  endif
next

That's from the top of my head and not tested at all. You may need to work out the details.