冰天雪地跪求VB画图求助啊


Private Sub Command1_Click()
Picture1.AutoRedraw = True
  Picture1.Scale (-0.2, 4.5)-(0.2, -0.3)     '重建坐标系
   Picture1.Line (0, -0.3)-(0, 4.5)
   Picture1.Line (-0.2, 0)-(0.2, 0)
R0 = -0.175
DR = 0.349
A = 11.6
B = 23.2
D = 11.6
S0 = 4
X1 = (-DR / 2)
X2 = (DR / 2)
   For x = X1 To X2 Step 0.001     '用描点法作图
   Y1 = A * (Sin(x) - Sin(R0))
   Y2 = 1 - ((A * Cos(R0) - D) / B) ^ 2
   y3 = 1 - ((A * Cos(x) - D) / B) ^ 2
   y4 = Sqr(Y2)
   y5 = Sqr(y3)
   y6 = B * (y4 + y5)
    y = Y1 + y6
     Picture1.PSet (x, y)
   Next x
End Sub
  写好上图代码后，执行后不描绘曲线，但是如果只取y=Y1或Y1+常数，则可以绘制曲线；如果y=y3或者把公式整合起来均不显示任何曲线！
肯定高人相助啊。。新手学的好纠结啊