Sub OnLButtonDown(Byval Item, Byval Flags, Byval x, Byval y)
Dim MSChart1
Dim MyData(20, 1)
'-----x轴坐标值-----Y轴坐标值----------
MyData(0, 0) = 0: MyData(0, 1) = 180 '本句代表了：第一点数据的X轴坐标为0，Y轴坐标为180
MyData(1, 0) = 6: MyData(1, 1) = 60
MyData(2, 0) = 8: MyData(2, 1) = 60
MyData(3, 0) = 11: MyData(3, 1) = 0
MyData(4, 0) = 16: MyData(4, 1) = 0
MyData(5, 0) = 19: MyData(5, 1) = 60
MyData(6, 0) = 25.8: MyData(6, 1) = 60
MyData(7, 0) = 28.8: MyData(7, 1) = 0
MyData(8, 0) = 31.8: MyData(8, 1) = 60
MyData(9, 0) = 40.3: MyData(9, 1) = 60
MyData(10, 0) = 43.3: MyData(10, 1) = 0
MyData(11, 0) = 93.3: MyData(11, 1) = 0
MyData(12, 0) = 96.3: MyData(12, 1) = 60
MyData(13, 0) = 99.3: MyData(13, 1) = 0
MyData(14, 0) = 105.3: MyData(14, 1) = 0
MyData(15, 0) = 135.3: MyData(15, 1) = 0
MyData(16, 0) = 144.3: MyData(16, 1) = 180
MyData(17, 0) = 148.8: MyData(17, 1) = 270
MyData(18, 0) = 405.03: MyData(18, 1) = 270
MyData(19, 0) = 409.53: MyData(19, 1) = 180
MyData(20, 0) = 564.17: MyData(20, 1) = 180
Set MSChart1=HMIRuntime.Screens("NewPdl0").ScreenItems("控件1")
'波形图外观设置
With MSChart1
.TitleText = "速度 m/min"
' '设置图线的外观
.Plot.SeriesCollection(1).Pen.Width = 10
.Plot.SeriesCollection(1).Pen.Style = 1
' '设置XY轴
.Plot.Axis(0).ValueScale.Auto = vbFalse '该对象描述坐标轴上显示数值所用的刻度。
.Plot.Axis(1).ValueScale.Auto = vbFalse
'// 设置最大值
.Plot.Axis(0).ValueScale.Maximum = 600
.Plot.Axis(1).ValueScale.Maximum = 300
'// 设置最小值
.Plot.Axis(1).ValueScale.Minimum = 0
.Plot.Axis(0).ValueScale.Minimum = 0
'//
.Plot.Axis(0).ValueScale.MajorDivision = 10 'X轴主要网格数量
.Plot.Axis(1).ValueScale.MajorDivision = 10 'Y轴主要网格数量
.Plot.Axis(0).ValueScale.MinorDivision = 0 'X轴次要网格数量
.Plot.Axis(1).ValueScale.MinorDivision = 0 'Y轴次要网格数量
.Plot.Axis(0).AxisGrid.MajorPen.Style = 1
.Plot.Axis(1).AxisGrid.MajorPen.Style = 1
.Plot.AutoLayout = vbFalse
.Plot.UniformAxis = vbFalse
.chartType = 12'设置图形为二维散点图
.ChartData = MyData '数据
End With

End Sub
代码中NewPdl0中控件1是MSChart控件，上述代码放在了画面NewPdl0中的按钮中当单击按钮后，MSChart控件中并不显示图形，请高手看看给予指点，请问在WinCC中绘制图表用什么控件呢？，就像Excell中的散点图等等