我在wincc v7.3画面上放置了一个mschart控件，把数据放在一个数组里面，在按钮vbs脚本里面希望能生成曲线

Sub OnClick(ByVal Item)         
Dim Chart,a(20),i
Set Chart=ScreenItems("MSChart")
For i=1 To 20
 a(i)=i
Next

With Chart
 .TitleText = "流量"
 .Column = 1
 .ColumnLabel = "流量1"

'    '设置图线的外观
     '设置XY轴
    .Plot.Axis(0).ValueScale.Auto = 0
    .Plot.Axis(1).ValueScale.Auto = 0
'//  '设置最大值
    .Plot.Axis(0).ValueScale.Maximum = 30 '设置横轴标注最大值
    .Plot.Axis(1).ValueScale.Maximum = 200 '设置纵轴标注最大值
'//  '设置最小值
    .Plot.Axis(0).ValueScale.Minimum = 0
    .Plot.Axis(1).ValueScale.Minimum = 0
 .Plot.Axis(0).ValueScale.MajorDivision = 10 'X轴主要网格数量
 
    .Plot.Axis(1).ValueScale.MajorDivision = 10 'Y轴主要网格数量
    .Plot.Axis(0).ValueScale.MinorDivision = 10 'X轴次要网格数量
    .Plot.Axis(1).ValueScale.MinorDivision = 0 'Y轴次要网格数量
    .Plot.Axis(0).AxisGrid.MajorPen.Style = 1
    .Plot.Axis(1).AxisGrid.MajorPen.Style = 1
    .Plot.AutoLayout = 1
    .Plot.UniformAxis = 0

    .chartType = 11      '设置图形为
    .ChartData = a '装入数据
    .ShowLegend = 1  '显示图例


For i = 1 To 5
 .Row = i
 .RowLabel = i*6
 Next
End With
Msgbox "0"
End Sub

最终没有用数组生成曲线，问题似乎是.ChartData = a无效，有大神能指点一二吗？