#-----------------#
 FUNCTION Labels()
#-----------------#
     DEFINE l_dialog_reference VARCHAR(10)
     DEFINE l_label_reference  VARCHAR(10)

     LET l_dialog_reference = _ADVPL_create_component(NULL,"LDIALOG")
     CALL _ADVPL_set_property(l_dialog_reference,"SIZE",160,120)
     CALL _ADVPL_set_property(l_dialog_reference,"TITLE","Ex.: Labels")
     CALL _ADVPL_set_property(l_dialog_reference,"BACKGROUND_COLOR",210,210,210)

     LET l_label_reference = _ADVPL_create_component(NULL,"LLABEL",l_dialog_reference)
     CALL _ADVPL_set_property(l_label_reference,"POSITION",05,05)
     CALL _ADVPL_set_property(l_label_reference,"TEXT","Esquerda:")
     CALL _ADVPL_set_property(l_label_reference,"WIDTH",100)
     CALL _ADVPL_set_property(l_label_reference,"TRANSPARENT",FALSE)

     LET l_label_reference = _ADVPL_create_component(NULL,"LRLABEL",l_dialog_reference)
     CALL _ADVPL_set_property(l_label_reference,"POSITION",05,25)
     CALL _ADVPL_set_property(l_label_reference,"TEXT","Direita:")
     CALL _ADVPL_set_property(l_label_reference,"WIDTH",100)
     CALL _ADVPL_set_property(l_label_reference,"TRANSPARENT",FALSE)

     LET l_label_reference = _ADVPL_create_component(NULL,"LCLABEL",l_dialog_reference)
     CALL _ADVPL_set_property(l_label_reference,"POSITION",05,45)
     CALL _ADVPL_set_property(l_label_reference,"TEXT","Centro:")
     CALL _ADVPL_set_property(l_label_reference,"WIDTH",100)
     CALL _ADVPL_set_property(l_label_reference,"TRANSPARENT",FALSE)
     CALL _ADVPL_set_property(l_dialog_reference,"MAXIMIZED",FALSE)
     CALL _ADVPL_set_property(l_dialog_reference,"ACTIVATE",TRUE) END FUNCTION