DEFINE CLASS JimB AS CUSTOM
    AlwaysLearning = .T.
    *!* More properties here
    FUNCTION GetNewKnowledge <strong>HIDDEN</strong>
        *!* Secret code here
    ENDFUNC
ENDDEFINE

*!* Note how VFP's full inheritance plays here
oCindy = CREATEOBJECT("JimB")
oCindy.GetNewKnowledge()  && Error 
oDoug  = CREATEOBJECT("JimB")
oDoug.GetNewKnowledge()  && Error