thanks.
>Keep in mind that this code will works only if in thisform.list1.value you have values from Q1 to Qxxxx
>
>>hi,
>>thanks again.
>>
>>>Better:
>>>

>>>LOCAL lnFor
>>>thisform.text42.Value = thisform.list1.value
>>>CLOSE all
>>>SELECT 0
>>>USE dnc
>>>lnFor                   = VAL(SUBSTR(thisform.text42.Value,2))
>>>LOCATE FOR flag1        = m.lnFor
>>>ThisForm.Label1.Caption = q1
>>>ThisForm.Label2.Caption = q11
>>>CLOSE all
>>>USE answers
>>>