PrivateDeclareFunctionCreateEllipticRgnLib"Gdi32"(ByValX1AsLong,ByValY1AsLong,ByValX2AsLong,ByValY2AsLong)AsLong
PrivateDeclareFunctionSetWindowRgnLib"User32"(ByValhWndAsLong,ByValhRgnAsLong,ByValbRedrawAsBoolean)AsLong
PrivateSubForm_Load()
SetWindowRgnhWnd,CreateEllipticRgn(0,0,300,200),True
EndSub->
