>DEFINE CLASS JimB AS CUSTOM > AlwaysLearning = .T. > *!* More properties here > FUNCTION GetNewKnowledge > *!* Secret code here > ENDFUNC >ENDDEFINE > >*!* Note how VFP's full inheritance plays here >oCindy = CREATEOBJECT("JimB") >oCindy.GetNewKnowledge() >oDoug = CREATEOBJECT("JimB") >oDoug.GetNewKnowledge()