The code is as follows:

Private Sub Command2_Click ()
Dim x
MSChart1. ChartType=VtChChartType2dBar
MSChart1. RowCount=50
MSChart1. ColumnCount=1
'MSChart1. ColumnLabelCount=
For x=1 To 50
MSChart1. Row=x
MSChart1. RowLabel=x
MSChart1. Plot. SeriesCollection (1). DataPoints (1). The Brush. The FillColor. Set 0, 0, 255
Next
End Sub


Not to say that right click control attribute
1-3 behavior change 4 to 8 for the green and red