>PUBLIC oform1 > >oform1=NEWOBJECT("form1") >oform1.Show >WAIT WINDOW "Wait for crash - Not press please" TIMEOUT 3 >KEYBOARD '{ALT+DNARROW}' PLAIN CLEAR >RETURN > >DEFINE CLASS form1 AS form > > Caption = "Form1" > Name = "FORM1" > > ADD OBJECT combo1 AS combobox WITH ; > RowSourceType = 9, ; > RowSource = "pp_st" > > PROCEDURE combo1.DropDown > RELEASE POPUP pp_st > ENDPROC > > PROCEDURE load > DEFINE POPUP pp_st RELATIVE > DEFINE BAR 1 OF pp_st PROMPT "\<Barra 1" > ENDPROC > >ENDDEFINE >>