Hi All,

This is just for fun!

Create a form with an exit button in its center
add this code to the LOAD event of the form and run :-)

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)

Nice!
I got it from a VB article.