_Screen.Addobject("cmd1","_mybut") _screen.cmd1.visible=.T. define class _mybut as commandbutton procedure click wait wind sys(16) endproc enddefine