Draw an egg(3)

Use 4 arcs  to compose an egg shape: Private Sub Form_Click() Me.Caption = "Draw an egg" Dim pi As Single, X As Single pi = 4 * Atn(1) Me.Scale (-2, -4)-(4, 4) Me.Circle (2, 0), 1, vbCyan, 3 * pi / 2,

>>阅读原文<<