用VB做数据折线图

用MSCHART控件
定义一个二维数组，例如：Global studydata(1 To 5, 1 To 7) '学历数据
ElseIf cb_sort.Text = "学历" And cb_chart.Text = "折线图" Then

With MSChart1
.ColumnCount = 6
.ChartData = studydata
.DataGrid.ColumnLabel(1, 1) = "研究生及以上"
.DataGrid.ColumnLabel(2, 1) = "本科"
.DataGrid.ColumnLabel(3, 1) = "专科"
.DataGrid.ColumnLabel(4, 1) = "中专"
.DataGrid.ColumnLabel(5, 1) = "高中"
.DataGrid.ColumnLabel(6, 1) = "初中及以下"
.TitleText = "全公司学历结构图示"
.ToolTipText = "全公司学历结构图示"
.ChartType = VtChChartType2dLine '折线图
'MSChart1.Stacking = True
End With

msChart
用这个控件，可以满足你的要求。