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