农村孕妇追生小说秀秀:vb程序问题

Dim Hi As Double '高
Dim Rd As Double '顶面半径
Dim Rn As Double '内圆锥面半径
Dim Rw As Double '外圆锥面半径
Const Pi = 3.1415926

'清空文本框
Private Sub CommandButton_Clear_Click()
Gaodu.Text = ""
Dingmian.Text = ""
Neiyuanzhui.Text = ""
Waiyuanzhui.Text = ""
End Sub

'绘制图形
Private Sub Huizhi_Click()
'输入参数
Hi = CDbl(Gaodu.Text)
Rd = (CDbl(Dingmian.Text)) / 2
Rn = (CDbl(Neiyuanzhui.Text)) / 2
Rw = (CDbl(Waiyuanzhui.Text)) / 2
' Hi = 50
' Rd = 10
' Rn = 30
' Rw = 40

'定义变量
Dim Arc_n As Double '内圆锥顶角
Dim Arc_w As Double '外圆锥顶角
Dim Xn(0 To 40) As Double '内圆锥上的点
Dim Yn(0 To 40) As Double
Dim Zn(0 To 40) As Double
Dim Xw(0 To 40) As Double '外圆锥上的点
Dim Yw(0 To 40) As Double
Dim Zw(0 To 40) As Double
Dim Ang(0 To 40) As Double '参数角

Arc_n = Atn((Rn - Rd) / Hi)

'给内圆锥上点赋值
For i = 0 To 40 Step 1
Ang(i) = -Pi * i / 40
Xn(i) = (Rn - Hi * Tan(Arc_n) - Tan(Arc_n) * Hi * Ang / Pi) * Cos(Ang)
Yn(i) = (Rn - Hi * Tan(Arc_n) - Tan(Arc_n) * Hi * Ang / Pi) * Sin(Ang)
Zn(i) = Hi + Hi * Ang / Pi
Xw(i) = (Rw - Hi * Tan(Arc_w) - Tan(Arc_w) * Hi * Ang / Pi) * Cos(Ang)
Yw(i) = (Rw - Hi * Tan(Arc_w) - Tan(Arc_w) * Hi * Ang / Pi) * Sin(Ang)
Zw(i) = Hi + (Hi - Rw + Rn) * Ang / Pi
Next i

'画两个圆
Dim Cir_Top As AcadCircle
Dim Cir_Bot As AcadCircle
Dim CenT(0 To 2) As Double
Dim CenB(0 To 2) As Double
CenT(0) = 0: CenT(1) = 0: CenT(2) = Hi
CenB(0) = 0: CenB(1) = 0: CenB(2) = 0
Set Cir_Top = ThisDrawing.ModelSpace.AddCircle(CenT, Rd)
Set Cir_Bot = ThisDrawing.ModelSpace.AddCircle(CenB, Rn)

End Sub

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
运行提示
“Private Sub Huizhi_Click()”这句
类型不匹配
请帮助解决。