How To Draw Bar Chart

I am doing a bar chart project. my project should looks like this:

The problem i have right now is that i don't know how to draw the rectangle in the right way. my rectangle start to draw at the left top, how do i fix my code to make the rectangle draw start from the bottom? Also, i know how to draw string of my each input value, but i don't know how to print data values inside each bar, centered horizontally and vertically. This is what i have done so far

Here is my code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim Blue As Brush = Brushes.Blue
Dim Red As Brush = Brushes.Red

[CODE].........................