纯萌新求助：未找到方法和数据成员

Private Sub Command1_Click()
'系数ZH的计算
StrenthResult.Show
pi = 3.141592654
afn1 = Val(Text1.Text) '分度圆法向压力角（角度）
bt1 = Val(Text2.Text) '分度圆螺旋角（角度）
z1 = Val(Text3.Text) '小齿轮齿数
z2 = Val(Text4.Text) '大齿轮齿数
mn = Val(Text5.Text) '端面模数
afn = afn1 * pi / 180 '分度圆法向压力角（弧度）
bt = bt1 * pi / 180 '分度圆螺旋角（弧度）
bbt = Cos(bt)
aft = Atn(Tan(afn) / bbt) '分度圆端面压力角
btb = Atn(Tan(bt) * Cos(aft)) '基圆螺旋角
a = mn * (z1 + z2) / (2 * bbt) '未变位时的中心距
yt = (z1 + z2) * (Cos(aft) / Cos(atp) - 1) / 2 '中心距变动系数yt
ap = mn * ((z1 + z2) / 2 + yt) / bbt '变位的中心距
atp = ArcCos((a * Cos(aft)) / ap) '端面啮合角αt`
'ZH = Sqr(2 * Cos(btb) * Cos(atp) / (Cos(aft)) ^ 2 * Sin(atp))
StrenthResult.Lable1.Caption = Format(aft, ".0000")
End Sub

我一步一步的验算了自己输入的公式，除了最后一个ZH不清楚是否有问题因为没算出来，其他的都能算，而且我只是想跨窗体显示一个最简单的变量，总会提醒未找到方法和数据成员。。求各位大神帮帮忙！！！

而且黄色的箭头总是指在第一行我都不知道第一行有什么错

　　建议：科学计算问题，如果显示的结果项目不是很多，请在同一窗体中布局。没有必要去整几个窗体。
　　窗体布局数据项的规则一般是从上到下，从左到右。如果在窗体上方布局输入项，中间布局按钮，下面就可以布局多项结果。这就是【输入→处理→输出】（IPO）程序设计理念。