Draw an egg(3)

Use 4 arcs to compose an egg shape: PrivateSubForm_Click() Me.Caption="Drawanegg" DimpiAsSingle,XAsSingle pi=4*Atn(1) Me.Scale(-2,-4)-(4,4) Me.Circle(2,0),1,vbCyan,3*pi/2,pi/2 Me.Circle(Sqr(3)/2,0),0.

>>阅读原文<<