>Maybe you could provide a little help with that...maybe pointing out some API calls that'll do this or even some sample code...
Here you go - I borrowed basic idea of this from someone - I believe from the UT - awhile back - don't remember - but I can't take full credit for it ...
slap it in a prg and run it ...
----------------------------------------
LOCAL loForm, lnwinhand, lnHR, lnHWND
SET LIBRARY TO (HOME()+'foxtools.fll')
DECLARE INTEGER CreateEllipticRgn IN gdi32 INTEGER X1 , INTEGER Y1 , INTEGER X2 , INTEGER Y2
DECLARE INTEGER SetWindowRgn IN user32 INTEGER HWND, INTEGER hRgn , INTEGER bRedraw
loForm = CREATE("form")
WITH loForm
.LEFT = 100
.TOP = 100
.CAPTION = "RoundForm"
.WINDOWTYPE = 1
.ADDOBJECT("cmdCancel","cmdRelease")
.cmdCancel.TOP = 80
.cmdCancel.LEFT = 140
.cmdCancel.VISIBLE = .T.
.cmdCancel.HEIGHT = 20
.cmdCancel.WIDTH = 80
.cmdCancel.CAPTION = "Done"
lnwinhand = _WFindTitl(.CAPTION)
lnHWND = _WhToHWnd(lnwinhand)
lnHR = CreateEllipticRgn (0, 0, .WIDTH, .HEIGHT)
SetWindowRgn(lnHWND, lnHR, 1)
loForm.SHOW()
ENDWITH
DEFINE CLASS cmdRelease AS COMMANDBUTTON
FUNCTION CLICK
THISFORM.HIDE()
ENDFUNC
ENDDEFINE
Ken B. Matson
GCom2 Solutions