Joel's technique requires that every class to support a private datasession be subclassed. My method does it without the class being modified. Joel's technique may work best for you, you control the source code.

>>Look at Message#592548 for an example of how to do what you want.
>
>Hi Albert,
>I looked at Message#592548 and found it very enlightening
>
>BUT, did you see Joel Leaches response to my question? He seems to have found an even better way of having a class use a Private DataSession.
>
>

>Define Class myCustom as Custom
>  oDS = .null.
>  Procedure Init()
>    This.oDS = CreateObject('session')
>    Set DataSession to (This.oDS.DataSessionID)
>  EndProc
>  Procedure Destroy()
>    This.oDS = .null.
>  EndProc
>EndDefine
>

>
>I tried it and it seems to work.
>Would you comment please?
>
>TIA