VB6 - MSChart1 values inside columns

Hi,

I would like to add the Label of each columns inside each columns instead of above? also i would like to have it with orientation 90 degrees. Is it also possible to have the text color in White inside the blue columns?

How can i do that?


Here is part of the code i have to generate above chart.

  With MSChart1
             '  .ShowLegend = True
            .EditCopy
            .EditPaste
            .ChartType = VtChChartType2dBar
            Set .DataSource = RS
            For i = 1 To .Column
                .Plot.SeriesCollection(i).DataPoints(-1).marker.Visible = False
                .Plot.SeriesCollection(i).DataPoints(-1).DataPointLabel.LocationType = VtChLabelLocationTypeAbovePoint
            Next

        End With

Select allOpen in new window