here ya go

(sorry i dont remeber the tags to make it appear as code)
*this is the click event
thisform.syear=this.value
thisform.txtprog_year.value=this.value
vyear=thisform.syear
set filter to STR((VAL(thisform.syear)+1),4)=this.value
thisform.refresh
this.lostfocus

*this is the int
byear=str((val(gyear)-9),4)
DO WHILE BYEAR # GYEAR
BYEAR = STR((VAL(BYEAR)+1),4)
thisform.syear=byear
thisform.lstprog_year.addlistitem(thisform.syear)
ENDDO

again TIA and sorry about forgetting the tags