MODIFY FORM testform NOWAIT ASELOBJ(laForm, 1) loForm = laForm(1) IF TYPE('loform.pageframe')<>"U" FOR EACH loPage IN loForm.PAGEFRAME.PAGES lcnewname = '' lctest = '' FOR EACH oControl IN loPage.CONTROLS IF UPPER(LEFT(oControl.NAME,3))="CMD" .OR. ALLTRIM(UPPER(oControl.BASECLASS)) = "COMMANDBUTTON" oControl.HEIGHT = 25 oControl.WIDTH = 64 lc_value = oControl.REadMethod('When') oControl.WriteMethod('When',lc_value+CHR(13)+"if not isnull(thisform.oLastActiveControl)"+CHR(13); +" thisform.oLastActiveControl.SetFocus()"+CHR(13); +"endif"+CHR(13)) ENDIF ENDFOR ENDFOR ELSE && no pageframe all controls are on the single page FOR EACH oControl IN loForm.CONTROLS IF UPPER(LEFT(oControl.NAME,3))="CMD" .OR. ALLTRIM(UPPER(oControl.BASECLASS)) = "COMMANDBUTTON" oControl.HEIGHT = 25 oControl.WIDTH = 64 lc_value = oControl.REadMethod('When') oControl.WriteMethod('When',lc_value+CHR(13)+"if not isnull(thisform.oLastActiveControl)"+CHR(13); +" thisform.oLastActiveControl.SetFocus()"+CHR(13); +"endif"+CHR(13)) ENDIF ENDFOR ENDIF RETURN