>Thank you very much! Now I just need to copy your code and paste it into mine <g>.
>
>>Based on Tore' suggestion:
>>
>>

>>*** To calculate value and let you have 6 CheckBoxes in the forms:
>>lnValue = 0
>>FOR lnFor = 1 TO 6
>>    WITH EVALUATE("thisform.Check"+TRANSFORM(lnFor))
>>         lnValue = IIF(.Value, BITSET(lnValue, m.lnFor-1))
>>    ENDWITH
>>NEXT
>>? lnValue
>>
>>*** To Get it back:
>>lnValue = FieldWhereYouSave
>>FOR lnFor = 1 TO 6
>>    WITH EVALUATE("thisform.Check"+TRANSFORM(lnFor))
>>         .Value = BITTEST(lnValue, m.lnFor-1)
>>    ENDWITH
>>NEXT
>>

And test it :-)