local MyForm ** por cada ecrã (form) que esteja aberto na aplicação for each MyForm in _screen.Forms ** Se se tratar do ecrã de clientes if MyForm.name="SCL" **Adiciona o objecto Label ao ecrã de clientes Myform.Pageframe1.Page2.addobject("u_bancoL","NOSSOLABEL") ** define algumas propriedades da label With MyForm.Pageframe1.Page2.u_bancoL .Top=230 .Left=315 .AltTop=.F. .Caption="Venda a Cargo de :" ** método interno e obrigatório: .IniOffset() .Visible=.t. EndWith ** Adiciona o objecto ComboBox ao ecrã de clientes Myform.Pageframe1.Page2.addobject("u_banco","NOSSOCOMBOBOX") ** define algumas propriedades da combobox With MyForm.Pageframe1.Page2.u_banco .Top=230 .Left=425 .width=140 .Height=19 .AltTop=.F. .FazShowsave = .t. ** controlsource da combobox é o campo de utilizador "u_banco" .ControlSource="cl.u_banco" ** define valores fixos para a combobox, cada valor é separado por virgula .Rowsource="Sul,Centro,Norte,Indefinido" ** obrigatório ser 1 para apresentar os valores definidos ** pela propriedade Rowsource .RowsourceType=1 .Statusbartext="Responsabilidade da Venda" .Tooltiptext="Responsabilidade da Venda" ** método interno e obrigatório: .IniOffset() .Visible=.t. EndWith exit endif next MyFormI can do that by specifying Keyboard keypress combination, but depending on the version software , the same have Events that can apply to my form.