DEFINE CLASS JimB AS CUSTOM AlwaysLearning = .T. *!* More properties here <b>HIDDEN</b> FUNCTION GetNewKnowledge *!* Secret code here ENDFUNC ENDDEFINE:-)
>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()