form1=CREATEOBJECT('tform')
form1.show

DEFINE CLASS tForm AS form

    DoCreate = .T.
    Caption = "Form1"
    Name = "Form1"


    ADD OBJECT combo1 AS combobox WITH ;
        RowSourceType = 9, ;
        Height = 24, ;
        Left = 45, ;
        Style = 2, ;
        Top = 65, ;
        Width = 150, ;
        Name = "Combo1"


    PROCEDURE combo1.Init
        DEFINE POPUP Test SHORTCUT RELATIVE FROM MROW(),MCOL()            
        DEFINE BAR 1 OF Test PROMPT "1"
        DEFINE BAR 2 OF Test PROMPT "2"

        ON BAR 1 OF Test ACTIVATE POPUP newitem
        ON BAR 2 OF Test ACTIVATE POPUP _1gz13e6mk

        DEFINE POPUP newitem SHORTCUT RELATIVE
        DEFINE BAR 1 OF newitem PROMPT "A"
        DEFINE BAR 2 OF newitem PROMPT "B"

        DEFINE POPUP _1gz13e6mk SHORTCUT RELATIVE
        DEFINE BAR 1 OF _1gz13e6mk PROMPT "C"
        DEFINE BAR 2 OF _1gz13e6mk PROMPT "D"

        this.RowSource=[test]
    ENDPROC


ENDDEFINE