DECLARE INTEGER CreateEllipticRgn IN gdi32 INTEGER X1 , INTEGER Y1 , INTEGER X2 , INTEGER Y2 DECLARE INTEGER SetWindowRgn IN user32 INTEGER HWND, INTEGER hRgn , INTEGER bRedraw SET LIBR TO ( HOME()+'foxtools.fll' ) lnwhandle = _WFindTitl(THIS.CAPTION) HWND = _WhToHWnd(lnwhandle) LOCAL hr LOCAL w, h w = THIS.WIDTH / 1 && change ratio h = THIS.HEIGHT / 1 && change ratio hr = CreateEllipticRgn(0, 0, w, h) SetWindowRgn(HWND, hr, 1)I got this from UT awhile back - sorry - can't site source.