PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.SHOW RETURN DEFINE CLASS form1 AS FORM ADD OBJECT container1 AS CONTAINER WITH ; TOP = 25, ; LEFT = 87, ; WIDTH = 200, ; HEIGHT = 200, ; NAME = "Container1" ADD OBJECT form1.container1.commandgroup1 AS COMMANDGROUP WITH ; BUTTONCOUNT = 2, ; VALUE = 1, ; HEIGHT = 66, ; LEFT = 53, ; TOP = 67, ; WIDTH = 94, ; NAME = "Commandgroup1", ; Command1.TOP = 5, ; Command1.LEFT = 5, ; Command1.HEIGHT = 27, ; Command1.WIDTH = 84, ; Command1.CAPTION = "Command1", ; Command1.NAME = "Command1", ; Command2.TOP = 34, ; Command2.LEFT = 5, ; Command2.HEIGHT = 27, ; Command2.WIDTH = 84, ; Command2.CAPTION = "Command2", ; Command2.NAME = "Command2" PROCEDURE container1.CLICK DEBUGOUT PROGRAM() ENDPROC PROCEDURE commandgroup1.CLICK DEBUGOUT PROGRAM() ENDPROC PROCEDURE commandgroup1.Command1.CLICK DEBUGOUT PROGRAM() ENDPROC PROCEDURE commandgroup1.Command2.CLICK DEBUGOUT PROGRAM() ENDPROC ENDDEFINE