Hi,
Yes... I got it... Thank you...
I got a problem again....

mymethod

DEFINE CLASS loSession AS SESSION
PROCEDURE INIT
	IF .NOT. USED('User')
		USE User SHARED AGAIN
		CURSORSETPROP('Buffering', 5, 'User')
	ENDIF

	SELECT User
	IF SEEK(THIS.UserID, 'User', 'User_ID')
		IF Supervisor
			llPass = .T.
		ENDIF
	ENDIF
	USE
	
ENDPROC
ENDDEFINE

loSession.DESTROY
RETURN llPass

WHAT WRONG WITH MY CODE? I got compile error...STATEMENT IS NOT IN PRCEDURE....
i rarely DEFINE CLASS programmatically...

Thank you