Hi Senna,

Try the following for the Grid ActiveControl problem:

LOCAL loActiveControl, lnColumn, loColumn

WITH This
     loActiveControl = IIF(TYPE([.oActiveForm.ActiveControl]) = "O", .oActiveForm.ActiveControl, .NULL.)

     IF VARTYPE(loActiveControl) = "O" AND UPPER(loActiveControl.BaseClass) = [GRID]
        lnColumn = loActiveControl.ActiveColumn

        FOR EACH loColumn IN loActiveControl.Columns
            IF loColumn.ColumnOrder <> lnColumn
               LOOP
            ENDIF

            IF NOT (loColumn.ReadOnly AND loColumn.Bound)
               RETURN EVAL([loColumn.] + loColumn.CurrentControl)
            ENDIF

            EXIT
        ENDFOR
     ENDIF
ENDWITH

RETURN loActiveControl

For the other issue, you may want to checkout THIS_ACCESS - throw in some cases, set an oldval property - or something along those lines.


>Actually I'm trying to make an object dissapear when another object got focus,
>Assume a combobox has 2 object, a textbox and a listbox, if neither of that object got focus, the listbox dissapear.
>Hope this can explain what I meant.
>
>Thanks,