how about trying this...

select CheckBoxRules
scan
   lcTryProperty = Alltrim(CheckBoxRules.Checkname)
   if NOT pemstatus( Thisform.Pages1._Page1, lcTryProperty, 5 )
      Thisform.Pages1._Page1.AddProperty( lcTryProperty )
   endif 
endscan

>Can somebody please tell me what's wrong with this code?
>
>

>Local cCheckName AS String
>
>Scan
>   cCheckName = [.] + Alltrim(CheckBoxRules.Checkname)
>   With Thisform.Pages1._page1
>        ? &cCheckName                 && evaluates to _Check1 of type object
>	&cCheckName..Addproperty('cSqlString',&Rules)    && Error
>   Endwith
>Endscan
>

>
>I also tried &cCheckName.Addproperty('cSqlString',&Rules) with similar results.
>
>TIA & BR
>
>Peter