Нарисовать столбчатую диаграмму

Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim n, n1, a, b, Naselenie As Integer
        Dim Graph As Graphics
        Dim Name As String
        Graph = Me.CreateGraphics
        a = 20  //отступ 1
        b = 50  //отступ 2
        n = 1    //счётчик городов
        InputBox("Введите количество городов", "Ввод данных", n1)  //вводится количество городов
        For n = 1 To n1 + 1
            InputBox("Введите название " & n & " города", "Ввод данных", Name)
            InputBox("Введите население " & n & " города", "Ввод данных", Naselenie)
            Graph.DrawString(Name, Me.Font, Brushes.Black, 20 + (n * b), a)     //пишется имя города
            Graph.FillRectangle(Brushes.Red, 20 + ((a + b) * n), (n * a) + a, a, Naselenie)    //рисуется столбик "а-ля диаграмма"
        Next
    End Sub
End Class

        n1 = InputBox("Введите количество городов", "Ввод данных", "")
        Name = InputBox("Введите название " & n & " города", "Ввод данных", "")
        Naselenie = InputBox("Введите население " & n & " города", "Ввод данных", "")

        Dim BM As New Bitmap(Me.Width, Me.Height)
        Dim G As Graphics = Graphics.FromImage(BM)
        Dim n, n1, a, b, Naselenie As Integer
        Dim Name As String
 
        a = 20
        b = 50
        n = 1
 
        n1 = InputBox("Введите количество городов", "Ввод данных", "")
 
        For n = 1 To n1 + 1
            Name = InputBox("Введите название " & n & " города", "Ввод данных", "")
            Naselenie = InputBox("Введите население " & n & " города", "Ввод данных", "")
            G.DrawString(Name, Me.Font, Brushes.Black, 20 + (n * b), a)
            G.FillRectangle(Brushes.Red, 20 + ((a + b) * n), (n * a) + a, a, Naselenie)
        Next
 
        Me.BackgroundImage = BM