>IF VARTYPE( THISFORM.tmrCheckMousePosition ) = 'O' >>
>IF PEMSTATUS(THISFORM.tmrCheckMousePosition,'O',3) >Are equal for not protected or hidden properties, but :
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