Private Sub Command1_Click()
MSChart1.Plot.SeriesCollection(1).DataPoints(-1).Brush.Style _
= VtBrushStylePattern
MSChart1.Plot.SeriesCollection(1).DataPoints(-1).Brush.Index _
= VtBrushPatternBoldDownDiagonal
MSChart1.Plot.SeriesCollection(1).DataPoints(-1).Brush.FillColor.Set _
255, 255, 255

MSChart1.Plot.SeriesCollection(2).DataPoints(-1).Brush.Style _
= VtBrushStylePattern
MSChart1.Plot.SeriesCollection(2).DataPoints(-1).Brush.Index _
= VtBrushPatternBoldHorizontal
MSChart1.Plot.SeriesCollection(2).DataPoints(-1).Brush.FillColor.Set _
255, 255, 255

MSChart1.Plot.SeriesCollection(3).DataPoints(-1).Brush.Style _
= VtBrushStylePattern
MSChart1.Plot.SeriesCollection(3).DataPoints(-1).Brush.Index _
= VtBrushPatternBoldUpDiagonal
MSChart1.Plot.SeriesCollection(3).DataPoints(-1).Brush.FillColor.Set _
255, 255, 255

MSChart1.Plot.SeriesCollection(4).DataPoints(-1).Brush.Style _
= VtBrushStylePattern
MSChart1.Plot.SeriesCollection(4).DataPoints(-1).Brush.Index _
= VtBrushPatternBoldVertical
MSChart1.Plot.SeriesCollection(4).DataPoints(-1).Brush.FillColor.Set _
255, 255, 255
End Sub