if lCanResize ... else nodefault thisform.borderstyle = 1 * thisform.borderstyle = 3 && Checking routine should reset this endifOr you can also use Assign method of Height, width.
*height_assign lparameters tnValue if lCanResize this.height = tnvalue endifCetin