Hi Borislav,

I tried tab to go over my controls and I got the following error message:
"ActiveControl is not an object!". it occurs at this line:
IF VARTYPE(thisform.ActiveControl.Name) == "C"
of the When event of the buttons.

Any idea?

Ali



>Add a property in the form named oControl
>In When event of the button(s)
>

>IF VARTYPE(thisform.ActiveControl.Name) == "C"
>   thisform.oControl = thisform.ActiveControl
>ENDIF
>
>** In Click Event of the button (or method invoked by it)
>thisform.LockScreen = .t.
>IF VARTYPE(thisform.oControl) == "O"
>   thisform.oControl.SetFocus()
>ENDIF
>thisform.LockScreen = .f.
>