Dear Sir,

How to use following codes, in VFP6, to show form as circle.

LOCAL nhWnd, nWidth, nHeight, nRegion

DECLARE INTEGER CreateEllipticRgn IN gdi32 ;
        INTEGER X1 , INTEGER Y1 , INTEGER X2 , INTEGER Y2
DECLARE INTEGER SetWindowRgn IN user32 ;
        INTEGER HWND, INTEGER hRgn , INTEGER bRedraw

nhWnd = This.HWnd
nWidth = This.WIDTH / 1 && change ratio
nHeight = This.HEIGHT / 1 && change ratio
nRegion = CreateEllipticRgn(0, 0, nWidth, nHeight)
SetWindowRgn(nhWnd, nRegion, 1)

Please help