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