VB中如何MSCHART控件

Dim testdata(1 To 24, 1 To 5) '职称数
Private Sub Form_Load()
Dim srow, scol As Integer
testdata(1, 1) = "A" ' 在第一列设置标签。
testdata(2, 1) = "B"
testdata(3, 1) = "C"
testdata(4, 1) = "D"
testdata(5, 1) = "E"
For srow = 1 To 24
For scol = 1 To 5
testdata(srow, scol) = testdata(srow, scol)
Next scol
Next srow
MSChart1.Legend.Location.LocationType = VtChLocationTypeBottom '图例在图表下方
With MSChart1
.ColumnCount = 4
.ChartData = testdata
.DataGrid.ColumnLabel(1, 1) = "tushi"
.DataGrid.ColumnLabel(2, 1) = "2C"
.DataGrid.ColumnLabel(3, 1) = "3D"
.DataGrid.ColumnLabel(4, 1) = "4E"
'.DataGrid.ColumnLabel(5, 1) = "5"
'.DataGrid.ColumnLabel(6, 1) = "6"

.TitleText = "折线图图示"
.ToolTipText = "折线图图示"
.ChartType = VtChChartType2dLine '折线图
End With

End Sub