在VB中动态绘制图表，供VB编程人员学习-Private Sub Form_Load()

　　Me.MSChart1.chartType = VtChChartType3dCombination

　　Me.MSChart1.ColumnCount = 5

　　Me.MSChart1.RowCount = 3

　　Dim column, row As Integer

　　For column = 1 To Me.MSChart1.ColumnCount

　　　　For row = 1 To Me.MSChart1.RowCount

　　　　　　Me.MSChart1.column = column

　　　　　　Me.MSChart1.row = row

　　　　　　Me.MSChart1.Data = Rnd* Rnd

　　　　Next

　　Next

End Sub