Here is an example. To test, create a form called 'testform.' Put a commandbutton on it and put something in the when of it.

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