use 100% Stacked Bar Chart. Take 2 series and add 100 to one series and the score to other series.
Here was a small example
Dim rand As New Random
Chart1.Series.Add("Series1")
Chart1.Series.Add("Series2")
For a = 1 To 10
Chart1.Series("Series1").Points.AddY(rand.Next(45, 95))<br/> Chart1.Series("Series2").Points.AddY(100)
Next a
Chart1.Series("Series1").ChartType = SeriesChartType.StackedBar100
Chart1.Series("Series1").IsValueShownAsLabel = True
Chart1.Series("Series2").ChartType = SeriesChartType.StackedBar100
Please remember to click “Mark as Answer�on the post that helps you, and to click “Unmark as Answer�if a marked post does not actually answer your question. This can be beneficial to other community members reading the thread.