This is a snippit, which I found interesting, and fun to play with. And I wish I knew wher I got it from, as it is a nice little toy to play with...Thax's who ever the person was

*-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.

HTH