What I did find that works is the following. The trick was to know to active the window named 'Form' so that the following Ctrl+W works properly. (Am not sure if DOEVENTS is necessary, but apparently it doesn't hurt either.)

For Each oFile In _vfp.ActiveProject.Files
	If oFile.Type="K" && form
		Modify Form (oFile.Name) Nowait
		AssignUniqueControlIDs()
		Activate Window 'Form'
		Keyboard '{CTRL+w}'
		DoEvents
	Endif
Endfor

>>Tamar --
>>
>>DOEVENTS had no effect -- all those forms just keep piling on top of each other on the screen, waiting for me to presss Ctrl+W
>>
>>Jim
>>
>
>Jim,
>
>In the thread I gave you a reference to I solved that problem. Re-read your thread again and please follow my reference.