FOR EACH oCont IN Thisform.Controls IF oCont.Baseclass = "Pageframe" FOR EACH Ctrl IN oCont.Page1.Controls IF Ctrl.TabIndex = 1 Ctrl.SetFocus() EXIT ENDIF ENDFOR EXIT ENDIF ENDFOR