MsChart

[fero]

Dim arrPrices(1 To 7)
Dim i As Integer

Private Sub Command1_Click()

For i = 1 To 7
arrPrices(i) = Text1(i).Text
Next i
MSChart1.ChartData = arrPrices

End Sub

Private Sub Form_Load()


For i = 1 To 7
Text1(i).Text = 2 * i
Next i

MSChart1.chartType = VtChChartType2dPie
For i = 1 To 7
arrPrices(i) = Text1(i).Text
Next i
MSChart1.ChartData = arrPrices


End Sub


Nota: form con una matriz de textbox (del 1 al 7), un commandbutton y un mschart.