DEFINE CLASS MyCustomSession AS SESSION DATASESSION = 2 && private data session = VFP default PROCEDURE Init() This.OpenTables() && Just an example of how tables might be opened ENDPROC PROCEDURE OpenTables() * Example of a method that would open tables ENDPROC PROCEDURE MyMethod() * Do something with tables * opened in this private data session ENDPROC PROCEDURE DESTROY * Tables opened in this private data session will be closed ENDPROC ENDDEFINE * Use the session object oSession = NEWOBJECT("MyCustomSession", <location>, etc.) oSession.MyMethod() oSession = .NULL.