LPARAMETERS tcName tcName = ALLTRIM(UPPER(tcName)) LOCAL llFound, loForm, loRetobj loRetobj = .NULL. FOR EACH loForm IN _SCREEN.FORMS IF UPPER(loForm.NAME) == tcName AND UPPER(loForm.BASECLASS) = 'FORM' llFound = .T. EXIT ENDIF ENDFOR IF llFound loRetobj = loForm ENDIF RETURN loRetobj