PUBLIC oTool1 oTool1 = CREAT([oTool]) oTool1.SHOW DEFINE CLASS oTool AS TOOLBAR CAPTION = [DevToolz] WIDTH = 1 ADD OBJECT oButton1 AS oModiComm ADD OBJECT oButton2 AS oModiClass ENDDEFINE DEFINE CLASS oModiComm AS oButtonClass CAPTION = [MODI COMM] PROC CLICK ACTI WIND COMMAND KEYB [modi comm testcode] KEYB [{ENTER}] ENDDEFINE DEFINE CLASS oModiClass AS oButtonClass CAPTION = [MODI CLASS] PROC CLICK ACTI WIND COMMAND KEYB [modi class TestClass of TestLib NOWAIT] KEYB [{ENTER}] ENDDEFINE DEFINE CLASS oButtonClass as Commandbutton fontsize = 8 fontname = [Arial] width = 80 enddefineDave