Ah Ha!
I do believe I've go it! :)

Procedure NewProgram
LParameters AnyParameters
Local loTemp
loTemp = CreateObject("sesTemp")
Return loTest.DoProgram(AnyParamaters)

Define Class sesTemp As Session
   Procedure DoProgram
   LParameters AnyParameters
   Return YourProgram(AnyParameters)
   EndProc
EndDefine

No all I've go to do is remember it for the next time I post:)

Cheers

Malc