* Add this method to the form root class and call by reference
PROCEDURE GetClientRect
LPARAMETERS l,t,r,b
IF m.this.ShowWindow=SHOWWINDOW_AS_TOP
    GetWindowRect(m.this.HWnd_client,@m.l,@m.t,@m.r,@m.b)
ELSE
    STORE m.this.Left+GetSizingBorderWidth			TO l
    STORE m.this.Top+GetWindowTitleHeight+GetSizingBorderHeight	TO t
    STORE m.l+m.this.Width-GetSizingBorderWidth			TO r
    STORE m.this.Top+m.this.Height-GetSizingBorderHeight	TO b
ENDIF