>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.
>

Boris,

You have a wrong code here. It should be

if type('thisform.ActiveControl.name') = 'C'

E.g. this is a place where you can not use vartype.