VB引用MsChart控件怎么改变每一列的颜色呢？？？

不是需要在控件上右键属性那种
我的代码下：
Private Sub Command2_Click()
  Dim x
  MSChart1.chartType = VtChChartType2dBar
  MSChart1.RowCount = 50
  MSChart1.ColumnCount = 1
  For x = 1 To 50
    MSChart1.Row = x
    MSChart1.RowLabel = x
    MSChart1.Plot.SeriesCollection(1).DataPoints(-1).Brush.FillColor.Set 2, 0, 255
 Next
End Sub
怎么才能分别设置每一列的颜色呢？如1红色 2 蓝色 3 绿色等
[local]1[/local]