Can you try

if type('_screen.activeFORM.baseclass') = 'C' and ;
  _screen.activeFORM.baseclass = 'Form' and ;
  type('_screen.activeFORM.activecontrol.baseclass') = 'C'
    loControl = _screen.activeFORM.activecontrol
else
    locontrol = .null.
endif

Glenn

>Guess I had better specify that I am working with FoxPro 5.0
>
>TYPE("_Screen.ActiveObject") is returning "U" even if the active object is a form and _Screen.ActiveObject.BaseClass is not available in FoxPro 5.0.