PROCEDURE CLICK this.AddObject("cn","container") this.cn.height = this.Parent.Height-30 this.cn.width = this.Parent.width -10 this.cn.anchor = 240 this.cn.visible = .T. ENDPROC