Código:
'In this example, the sales for two companies are shown for four months. 'Create the data array and bind it to the ChartData property. Dim Sales(,) As Object = New Object(, ) _ {{"Company", "Company A", "Company B"}, _ {"June", 20, 10}, _ {"July", 10, 5}, _ {"August", 30, 15}, _ {"September", 14, 7}} chtSales.ChartData = Sales 'Add a title and legend. With Me.chtSales .Title.Text = "Sales" .Legend.Location.LocationType = _ MSChart20Lib.VtChLocationType.VtChLocationTypeBottom .Legend.Location.Visible = True End With 'Add titles to the axes. With Me.chtSales.Plot .Axis(MSChart20Lib.VtChAxisId.VtChAxisIdX).AxisTitle.Text = "Year" .Axis(MSChart20Lib.VtChAxisId.VtChAxisIdY).AxisTitle.Text = "Millions of $" End With 'Set custom colors for the bars. With Me.chtSales.Plot 'Yellow for Company A ' -1 selects all the datapoints. .SeriesCollection(1).DataPoints(-1).Brush.FillColor.Set(250, 250, 0) 'Purple for Company B .SeriesCollection(2).DataPoints(-1).Brush.FillColor.Set(200, 50, 200) End With