SUB EZ_SetReadOnly(BYVAL FormName$, BYVAL ControlID&, BYVAL TFlag&)
IF TFlag&<>0 THEN
EZ_SendMessage FormName$, ControlID&,&HCF, 1,0 ' %EM_SETREADONLY message
ELSE
EZ_SendMessage FormName$, ControlID&,&HCF, 0,0 ' %EM_SETREADONLY message
END IF
END SUB