Okay, If I understand correctly, this is the program that needs this value from thisform.
So, you will need to pass it in just like you do the lncurrency value at the top. then just assign the variable where you need it.
Of course I am assuming that this program is called from the form that has this value. Is that correct?

>hi,
>thank you for reply,
>
>this is my program under ,just fetch at "&&" under
>

>PARAMETERS lncurrency
<.snip.>
>lccurrency=ALLTRIM(STR(INT(lncurrency))) && will display like 14
<.snip.>
>IF LEN(lccurdacisep1)>0
>*lcriyal='DOLLAR'&&& I NEED SOME TIMES TO CHOICE MARK OR DENAR.
>*lcriyal=THISFORM.TEXT26.VALUE&&&&&& THIS WHAT I NEED ELSE
>lcriyal=''
>endif
>lcallstr=ALLTRIM(lcmilliontxt+lcmillionsep+lcthousandtxt1+lcthousand1sep+lcthousandtxt+lcthousandsep+;
>lchundredtxt+lchundredsep+lctentxt+lcriyal+lccurdacisep+lccurdacitxt+lcnothing)
>select temp
>RETURN lcallstr
>

>
>thank you
>m.qasem