生成椭圆形窗体程序(vb6.0源代码编写)'函数声明PrivateDeclareFunctionCreateEllipticRgnLib"gdi32"(ByValX1AsLong,_ByValY1AsLong,ByValX2AsLong,ByValY2AsLong)AsLongPrivateDeclareFunctionSetWindowRgnLib"user32"(ByValhWndAsLong,_ByValhRgnAsLong,ByValbRedrawAsLong)AsLongPriv