>* grid.column2.edit1.KeyPress >LPARAMETERS nKeyCode, nShiftAltCtrl >do case > case nKeyCode = 24 && DnArrow > thisform.LockScreen = .T. > KEYBOARD "{SHIFT+TAB}{DnArrow}{TAB}" > nodefault > case nKeyCode = 5 && UpArrow > thisform.LockScreen = .T. > KEYBOARD "{SHIFT+TAB}{UpArrow}{TAB}" > nodefault > case nKeyCode = 3 && PgDown > thisform.LockScreen = .T. > KEYBOARD "{SHIFT+TAB}{PgDn}{TAB}" > nodefault > case nKeyCode = 18 && Pgup > thisform.LockScreen = .T. > KEYBOARD "{SHIFT+TAB}{PgUp}{TAB}" > nodefault >endcase >>