怎么用series绘制正弦的函数图像啊，请大神指教

vb6.0的

 A = Val(Text1.Text)
    W = Val(Text2.Text)
    B = Val(Text3.Text)
    C = Val(Text4.Text)

 For i = 0 To 50 Step 1
     x(i) = i
     y(i) = A * Sin(W * x(i) + B) + C
Next
     With AxTChart1.series(0).Clear()
For i = 0 To 50 Step 1
.series(0).Add(y(i), x(i), 0)


 
     Next
     End With
     End If
End Sub

最后series语句错误是怎么回事

Option Explicit

Private Sub Form_Activate()
Dim i%
For i = 1 To Me.ScaleWidth / 10
   Me.PSet (i * 10, Sin(i / 4) * 50 + Me.ScaleHeight / 2), vbRed
Next i
End Sub