Draw an egg(3)

Use 4 arcs  to compose an egg shape:

1. Private Sub Form_Click()
2. Me.Caption = "Draw an egg"
3. Dim pi As Single, X As Single
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. End Sub

 It returns: