LPARAMETERS nKeyCode, nShiftAltCtrl WITH THISFORM.PAGEFRAME DO CASE CASE nKeyCode = 18 .AND. nShiftAltCtrl = 0 && Page Up NODEFAULT IF VARTYPE(thisform.activecontrol) = "O" .and. !ISNULL(thisform.activecontrol) thisform.activecontrol.setfocus() ENDIF IF .ACTIVEPAGE > 1 .ACTIVEPAGE = .ACTIVEPAGE - 1 ELSE .ACTIVEPAGE = .PAGECOUNT ENDIF DO CASE CASE .ACTIVEPAGE = 1 .Page1.txtMap_csr.SETFOCUS() CASE .ACTIVEPAGE = 2 .Page2.txtYn_split.SETFOCUS() CASE .ACTIVEPAGE = 3 .Page3.txtAdr_name1.SETFOCUS() CASE .ACTIVEPAGE = 4 .Page4.txtLp_chg.SETFOCUS() CASE .ACTIVEPAGE = 5 .Page5.txtMendo_q1.SETFOCUS() CASE .ACTIVEPAGE = 6 .Page6.txtMendo_q81.SETFOCUS() ENDCASE CASE nKeyCode = 3 .AND. nShiftAltCtrl = 0 && Page Down NODEFAULT IF VARTYPE(thisform.activecontrol) = "O" .and. !ISNULL(thisform.activecontrol) thisform.activecontrol.setfocus() ENDIF IF .ACTIVEPAGE < .PAGECOUNT .ACTIVEPAGE = .ACTIVEPAGE + 1 ELSE .ACTIVEPAGE = 1 ENDIF DO CASE CASE .ACTIVEPAGE = 1 .Page1.txtMap_csr.SETFOCUS() CASE .ACTIVEPAGE = 2 .Page2.txtYn_split.SETFOCUS() CASE .ACTIVEPAGE = 3 .Page3.txtAdr_name1.SETFOCUS() CASE .ACTIVEPAGE = 4 .Page4.txtLp_chg.SETFOCUS() CASE .ACTIVEPAGE = 5 .Page5.txtMendo_q1.SETFOCUS() CASE .ACTIVEPAGE = 6 .Page6.txtMendo_q81.SETFOCUS() ENDCASE OTHERWISE DODEFAULT() ENDCASE ENDWITH