PUBLIC oForm
oForm = CREATEOBJECT('comboclick')
oform.show(1)
DEFINE CLASS comboclick AS form
    Caption = "Form1"
    Name = "Form1"
    ADD OBJECT text1 AS textbox WITH ;
        Height = 25, ;
        Left = 12, ;
        Top = 12, ;
        Width = 109, ;
        Name = "Text1"
    ADD OBJECT combo1 AS combobox WITH ;
        RowSourceType = 6, ;
        Height = 25, ;
        Left = 156, ;
        Style = 2, ;
        Top = 12, ;
        Width = 133, ;
        Name = "Combo1"
    PROCEDURE Load
        CREATE CURSOR test (cID c(10))
        FOR i = 1 TO 10
            INSERT INTO test (cID) VALUES (TRANSFORM(i))
        ENDFOR 
    ENDPROC
    PROCEDURE Init
        this.combo1.RowSource= 'test.cID'
        this.text1.Value = " Press Enter"
    ENDPROC
    PROCEDURE combo1.GotFocus
        MOUSE CLICK at objtoclient(this,1), objtoclient(this,2) window 'form1' PIXELS
    ENDPROC
ENDDEFINE