****A) Attached to Screen *** _SCreen.AddObject("oApp","cApp") **** Using like this **** lcUserName = _screen.oApp.cUserName lnPrivelegeLeve = _screen.oApp.nPrivilegeLevel ****B) As a Public Object ***** PUBLIC oAPP oAPP = CREATEOBECT("cApp") **** Using like this... lcUserName = oApp.cUserName lnPrivelegeLeve = oApp.nPrivilegeLevel **** In any case... IF lnPrivilegeLevel > 0 ** ..... ENDIF **** In any case, you should have a class definition with all the PEMs **** as you need. DEFINE CLASS cAPP as Session cUserName cPrivilegesLevel PROCEDURE INIT **** ENDPROC ENDDEFINEHTH