FOR EACH oObject IN _vfp.objects > FOR EACH oSub IN oObject.Objects > FOR EACH oSub1 IN oObject.Objects > IF oSub1.Baseclass = 'Form' > ? oSub1.Caption > endif > endfor > endfor >endfor