تمثيل التصويت بالرسم

السلام عليكم ورحمة الله وبركاته

اخواني كيف استطيع تمثيل نسب التصويت بالرسم بالاضافة للتمثيل الرقمي

ان اعنلت الكود الي بحسب النسب المئوية بس بدي امثلوا بالرسم زي ما بتسوس اغلب المواقع

و هي الكود تبع حساب النسب المئوية

 Dim total As Integer
        Dim reader As System.Data.SqlClient.SqlDataReader
        Dim read As String
        read = "select * from Takeam"
        Dim readcom As New SqlCommand(read, cn)
        cn.Open()
        reader = readcom.ExecuteReader(CommandBehavior.SingleRow)
        If reader.Read Then
            total = reader("excelant") + reader("good") + reader("miduom") + reader("week")
            Me.TotalLabel.Text = "عدد المصوتين" + " " + CType(total, String)
            Me.ExcellentLabel.Text = "%" + "ممتاز" + " " + CType(Math.Round((reader("excelant") / total) * 100), String)
            Me.GoodLabel.Text = "%" + "جيـد" + " " + CType(Math.Round((reader("good") / total) * 100), String)
            Me.MedialLabel.Text = "%" + "متوسط" + " " + CType(Math.Round((reader("miduom") / total) * 100), String)
            Me.PoorLabel.Text = "%" + "ضعيف" + " " + CType(Math.Round((reader("week") / total) * 100), String)
        End If
        cn.Close()

طبعا المقصود بالرسم (خط) يمثل النسبة المئوية لكل خيار