Fabio and Naomi,

Thanks for doing the test.

Ben


>>Revised repro code:
>>

>>Wait Window 'Press ENTER to create a graphic checkbox at the left top of screen...'
>>_Screen.AddObject('c','Checkbox')
>>_Screen.c.Visible=.T.
>>_Screen.c.Style= 1
>>Do While Lastkey()=13
>>  Wait Window '_Screen.c.Value='+Tran(_Screen.c.Value)+'.  Press ENTER to toggle 0/1, other key to end.'
>>  _Screen.c.Value=Abs(_Screen.c.Value-1)
>>EndDo
>>_Screen.RemoveObject('c')
>>

>
>I see this bug as well.