'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