主题：如何指定图表坐标？

 dim s as single
dim ss as single
dim sss as single
dim d as date=#01/01/2010#
dim d1 as date
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
for i as integer=1 to 365
   d1=d.adddays(i)
   if d1> date.today()
     exit for
   end if
messagebox.show(d1,i)

'Series.Length = i '设置图系的长度
Series.X(i) = i
   ‘s = DataTables("发货清单").Compute("Sum(金额)","[发货日期] ='" & d1 & "'")
   ’ss= DataTables("收款表").Compute("Sum(收款金额)","[收款日期] = '" & d1 & "'" )'"[发货日期] = [日期]")
     'ssss=DataTables("应收账款").Compute("Sum(应收金额)"," " )'"[发货日期] = [日期]")
      ‘  sss=s-ss 'DataTables("发货清单").Compute("Sum(应收金额)"," ")  '" & Value(0) & "'" )'"[发货日期] = [日期]")
messagebox.show(d1,sss)
For f as integer=0 to 5  '指定每个数据点的位置
 Series.X(i) = i '指定水平坐标
  Series.Y(i) =56  '指定垂直坐标
Next
next


这样的代码错在哪里 ，试了很多次，望高手指点，谢谢