小吳 VBQA 程式設計討論

我寫ㄌ個程式是學校要交的作業...老師叫我寫出樹葉的各種角度..
我花ㄌ很久寫ㄌㄧ個...想請教各位,有沒有更快更有效率的方法..
來轉出更多角度的樹葉ㄋ,請交我謝^^"下面是我的程式碼.請多指教
Private Sub Command1_Click()
Const pi = 3.14159
Circle (3000, 1100), 700, , 7 / 8 * pi, 3 / 2 * pi, 1.44
Circle (2500, 1800), 1000, , 0 * pi, 1 / 2 * pi, 2
DrawWidth = 2
Circle (2800, 500), 500, , 7 / 8 * pi, 5 / 4 * pi, 1.5
DrawWidth = 1
Line (2530, 800)-(3000, 1800)
Line (2580, 870)-(2580, 1400)
Line (2630, 950)-(2860, 1030)
Line (2680, 1100)-(2975, 1300)
Line (2680, 1140)-(2680, 1600)
Line (2750, 1270)-(2990, 1470)
Line (2780, 1370)-(2780, 1750)
Line (2880, 1590)-(2880, 1800)
Line (2880, 1590)-(3030, 1700)
End Sub