Description: 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
To Search:
File list (Check if you may need any files):
huichitubiao\Form1.frm
............\Form1.frx
............\_desktop.ini
............\工程1.vbp
............\工程1.vbw
huichitubiao
Download