Sub Test() Dim shpEllipse As Shape, shpBound As Shape Dim x As Double, y As Double Set shpEllipse = ActiveLayer.CreateEllipse2(0, 0, 6, 4) b = ActiveDocument.GetUserClick(x, y, 0, 10, False, cdrCursorEyeDrop) If b=0 Then Set shpBound = shpEllipse.CreateBoundary(x, y, False, False) shpBound.Fill.UniformColor.RGBAssign 255, 0, 0 End IfEnd Sub