LOCAL l_cSeekDoc WITH THISFORM .LOCKSCREEN=.T. l_cSeekDoc=.cbocode.VALUE SELECT DOCUMENT SEEK l_cSeekDoc .txtrmrev.value=alltrim(DOCUMENT.revision) .txtrmname.value=alltrim(DOCUMENT.TITLE) This.value=l_cSeekDoc SELECT devdata .txtrmrev.readonly=.t. .txtrmname.readonly=.t. .txtQuantity.setfocus() .REFRESH() .LOCKSCREEN=.F. ENDWITHIt works as I had hoped if the user chooses the cbocode with the mouse...the other information is placed in the appropriate fields and the curser is moved to the quantity.