DECLARE INTEGER CreateEllipticRgn IN WIN32API INTEGER X1 , INTEGER Y1 , INTEGER X2 , INTEGER Y2 DECLARE INTEGER SetWindowRgn IN WIN32API INTEGER HWND, INTEGER hRgn , INTEGER bRedraw function MakeWindowElliptic(_form) local Handle, RegionHandle, CaptionHeight Handle =_form.hwnd CaptionHeight = iif(empty(_form.Titlebar), 0, iif(_form.HalfHeightCaption,22,26)) RegionHandle = CreateEllipticRgn(4, CaptionHeight, _form.Width, _form.Height) =SetWindowRgn(Handle, RegionHandle, 1) endfunc