oMyClass = CREATEOBJECT("MyClass") lReturnVal = oMyClass.MyProc("Testing") oMyClass = NULL DEFINE CLASS MyClass AS Session FUNCTION Init * put any needed SET commands here SET DELETED ON SET TALK OFF SET EXCLUSIVE OFF * and so forth - note: the defaults for some * of these were changed in Session class in later * versions of VFP ENDFUNC FUNCTION MyProc(cParam1 AS String) As Boolean LOCAL lSuccess lSuccess = .F. * your code here that sets value of lSuccess when done RETURN lSuccess ENDFUNC * or you can just use the older syntax with LPARAMETERS: FUNCTION MyProc2 LPARAMETERS cParam1 LOCAL lSuccess lSuccess = .F. * code here RETURN lSuccess && or return whatever var type you prefer ENDFUNC ENDDEFINE