>>>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?

Testing is for sissies.