** mztolo 2007
SET TALK OFF 
CLEAR 

_SCREEN.AddObject("cmd1","mycommand1" )  

DEFINE CLASS mycommand1 AS commandgroup  
top=10 
left=10 
visible=.t. 
buttoncount=3 
autosize=.t. 

command1.caption="\<Calculator" 
Command1.Height=25 

PROCEDURE command1.Click   
	run /n calc.exe 
ENDPROC   

command2.caption="\<About" 
Command2.Height=25 

PROCEDURE command2.Click   
	WAIT WINDOW 'Latihan CommandGroup ' 
ENDPROC  

command3.caption="\<Keluar" 
Command3.Height=25 

PROCEDURE command3.Click   
	_screen.RemoveObject('cmd1' ) 
ENDPROC  
ENDDEFINE