procedure interactivechange if len(allt(this.value))<3 return endif if type("this.cmychoice")="U" this.addproperty("cmychoice", "") endif nwlen = len(allt(this.displayvalue)) for i = 1 to this.listcount if substr(this.displayvalue,1,nwlen)=substr(this.listitem(i,2),1,nwlen) cnewvalue = this.listitem(i,2) this.cmychoice = cnewvalue this.displayvalue = cnewvalue This.selstart = nwlen This.sellength = len(allt(this.displayvalue))-nwlen endif endfor procedure keypress LPARAMETERS nKeyCode, nShiftAltCtrl if nKeycode=13 if type("this.cmychoice")="U" return endif for i = 1 to this.listcount if this.cmychoice=this.listitem(i,2) this.value = this.listitem(i,1) this.displayvalue = this.listitem(i,1) endif endfor ENDIFPS: not tested !!