［声明］

Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

［说明］

创建一个椭圆，该椭圆与X1，Y1和X2，Y2坐标点确定的矩形内切

［参数表］

X1,Y1 ---------- Long，矩形左上角X，Y坐标

X2,Y2 ---------- Long，矩形右下角X，Y坐标

［返回值］

Long，执行成功则为区域句柄，失败则为零

［其它］

不用时一定要用DeleteObject函数删除区域。用Ellipse API 函数绘出的椭圆与该椭圆区域不完全相同，因为本函数的绘图计算不包括矩形的下边和右边