FUNCTION OPTIONS(*DIRECT)
BEGIN_COM ROLE(*EXTENDS #PRIM_FORM) HEIGHT(300) WIDTH(400)
DEFINE_COM CLASS(#PRIM_LABL) NAME(#LABL_1) DISPLAYPOSITION(1) HEIGHT(19) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(1) TOP(8) WIDTH(180) CAPTION('Hello, World!')
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_1) DISPLAYPOSITION(2) HEIGHT(25) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(2) TOP(40) WIDTH(75) CAPTION('OK')
EVTROUTINE HANDLING(#PHBN_1.Click)
CLOSE
ENDROUTINE
END_COM