>>>>IF VARTYPE( THISFORM.tmrCheckMousePosition ) = 'O' >>>>>>>>
>>>>IF PEMSTATUS(THISFORM.tmrCheckMousePosition,'O',3) >>>>>>>
>>>CLEAR >>>X = CREATEOBJECT("XX") >>>? PEMSTATUS(m.x,"property",5) >>>? VARTYPE(x.undef) && This work !!!! >>>? VARTYPE(x.property) && Expected : "U" too ; Error ! this is a BUG >>> >>>DEFINE CLASS xx as Custom >>> PROTECTED property >>> >>> PROCEDURE Init >>> ? PEMSTATUS(m.this,"property",5),VARTYPE(this.property) >>> >>>ENDDEFINE >>>>>
>>? VARTYPE(x.property) && Expected : "U" too ; Error ! this is a BUG >>>