*-this program makes the window an eclipse LOCAL lhWnd LOCAL lhRgn DECLARE LONG FindWindowA IN WIN32API STRING class, STRING title DECLARE LONG CreateEllipticRgn in WIN32API INTEGER left, INTEGER top, INTEGER right, INTEGER bottom DECLARE INTEGER SetWindowRgn in WIN32API LONG hWnd, LONG hRgn, INTEGER redraw DECLARE INTEGER DeleteObject in WIN32API LONG hObject lhWnd = FindWindowA(0, _VFP.Caption) lhRgn = CreateEllipticRgn(1, 1, _VFP.Width, _VFP.Height) ? SetWindowRgn(lhWnd, lhRgn, 1) ? DeleteObject(lhRgn)if you run this as it is, youll have to quit VFP with using the Quit command, in the command box, So make sure you run it in a seperat intance off VFP.