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