PUBLIC oForm1 oForm1 = CREATEOBJECT([oForm]) oForm1.ADDOBJECT([oCommand1],[Commandbutton]) oForm1.oCommand1.TOP = 25 oForm1.CAPTION = [Hit CTRL+HOME to place focus on the Textbox] oForm1.oCommand1.VISIBLE = .T. oForm1.WIDTH = 400 oForm1.SHOW DEFINE CLASS oform AS FORM ADD OBJECT oText1 AS oTextbox PROC INIT KEYB [{TAB}] ON KEY LABEL CTRL+HOME oForm1.oText1.SETFOCUS ENDPROC ENDDEFINE DEFINE CLASS oTextbox AS TEXTBOX ENDDEFINEDave