[VB6 ] 請問關於扇型

[hitw ((￣ε(#￣) #○=(一-一o))]

請問各位大大 關於畫扇型 除了Circle有其它function嗎?
circle好像只能畫弧度
我畫出弧度之後 要怎麼line到弧的二端 變成完整的扇型呢??
以下為目前的程式碼                                  .........m(_ _)m


Dim X As Double
Dim y As Double
Dim z As Double
Dim i As Double

Private Sub Command1_Click()
X = Text1.Text / 57          << 徑換算成start的角度
y = Text2.Text / 57          << 夾角的角度
z = Text3.Text               << 輸入半徑
i = X + y                    << end的角度

Form2.Circle (2500, 2500), z, vbBlue, X, i
End Sub

Private Sub Command2_Click()  <<用來清除form2
Form2.Cls
End Sub

Private Sub Form_Load()
Form2.Show
End Sub

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 220.132.148.99
推 Caro1:我記得度數變號之後就有連到圓心的線出來了～～
→ jackdawliu:略略略 z, vbBlue, -X, -i (這裡加負號)
推 hitw:感激不盡 搞定了