teechart y=f(x)功能

vb下teechart y=f(x)功能

用例程 不能绘制出曲线
有何错？？

Private Sub UpdateChart()
  'Force the recalculation function
  TChart1.Series(0).FunctionType.BeginUpdate
  TChart1.Series(0).FunctionType.EndUpdate
End Sub

Private Sub Command1_Click()
  TChart1.ShowEditor 0
  UpdateChart
End Sub

Private Sub Form_Load()
  UpdateChart
End Sub

Private Sub TChart1_OnFunctionCalculate(ByVal SeriesIndex As Long, ByVal X As Double, Y As Double)
  Y = Sin(X / 10)
End Sub
--------------------编程问答-------------------- teechart是啥呀？第三方的?

补充：VB ,  控件