>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