Draw an egg(3)

Use 4 arcs to compose an egg shape:

1. PrivateSubForm_Click()
2. Me.Caption="Drawanegg"
3. DimpiAsSingle,XAsSingle
4. pi=4*Atn(1)
5. Me.Scale(-2,-4)-(4,4)
6. Me.Circle(2,0),1,vbCyan,3*pi/2,pi/2
7. Me.Circle(Sqr(3)/2,0),0.5,vbCyan,2*pi/3,4*pi/3
8. Me.Circle(2,2),2,vbCyan,pi/2,3*pi/4
9. Me.Circle(2,-2),2,vbCyan,5*pi/4,3*pi/2
10. EndSub

It returns: