PROCEDUR Keypress(nKeyCode, nShiftAltCtrl) DO CASE CASE nKeyCode = 18 AND nShiftAltCtrl = 0 SetFocusforPageKeys(THIS.NAME,VAL(THIS.PARENT.lblItemNo.CAPTION),-1) CASE nKeyCode = 3 AND nShiftAltCtrl = 0 SetFocusforPageKeys(THIS.NAME,VAL(THIS.PARENT.lblItemNo.CAPTION),1) OTHERWISE ENDCASE ENDPROCCTRL+V pastes whatever is in the text clipboard. You'll have to figure out how "DEFINE CLASS SUBTEXTBOX" gets there.
define class subTextBox as TextBox >format="R" >height=17 >specialeffect=1 >procedur KeyPress(nKeyCode, nShiftAltCtrl) >if nKeyCode=18 > SetFocusforPageKeys(this.name,val(this.parent.lblItemNo.Caption),-1) >else >if nKeyCode=3 > SetFocusforPageKeys(this.name,val(this.parent.lblItemNo.Caption),1) >else >endif >endif >endproc >enddefine