>>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 :-)

Test it? Are you chicken?