Vb.net chart1 processing

Imports System.Windows.Forms.DataVisualization.Charting

Public Class Form1
    Public Class Data
        Public  Unit type  As String
        Public  Total heat supply  As Double
        Public  On grid power  As Double
        Sub New(jzbl As String, zgrl As Double, swdl As Double)
             Unit type  = jzbl
             Total heat supply  = zgrl
             On grid power  = swdl
        End Sub

    End Class
    Dim list As List(Of Data) = New List(Of Data)


    Private Sub Chart1_Click(sender As Object, e As EventArgs) Handles Chart1.Click

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' Reference namespace 
        ' Instantiation Thread class 
        ' call  start
        '

        Chart1.ChartAreas.Clear()
        Dim ChartAreas1 As New ChartArea("Read length")   ' Define a new ChartArea
        Chart1.ChartAreas.Add(ChartAreas1)                ' The newly defined ChartArea Join in Chart1
        Chart1.ChartAreas(0).AxisX.Title = " company "   ' Set up ChartArea Inner axis title 
        Chart1.ChartAreas(0).AxisY.Title = " energy "
        Chart1.Series.Clear()


        Dim series1 As New Series(" Total heat supply ")
        series1.ChartType = SeriesChartType.Column        ' Set up Series Type of drawing    Column Pie
        Chart1.Series.Add(series1)

        Dim series2 As New Series(" On grid power ")
        series2.ChartType = SeriesChartType.Column        ' Set up Series Type of drawing    Column Pie
        Chart1.Series.Add(series2)



        'For i = 0 To list.Count - 1
        '    Chart1.Series(" Total heat supply ").Points.AddXY(list(i). Unit type , list(i). Total heat supply )
        '    Chart1.Series(" On grid power ").Points.AddXY(list(i). Unit type , list(i). On grid power )
        'Next

        For Each data In list
            Chart1.Series(" Total heat supply ").Points.AddXY(data. Unit type , data. Total heat supply )
            Chart1.Series(" On grid power ").Points.AddXY(data. Unit type , data. On grid power )
        Next

        Chart1.Legends(0).Docking = Docking.Top             ' Adjust the position of the legend 




    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        list.Add(New Data(" Datang Power generation ", 1603637.05, 1186290.45))
        list.Add(New Data(" Guodian power ", 2848337.57, 1785987.19))
        list.Add(New Data(" Huaneng International ", 12950880.13, 4379843.99))
        list.Add(New Data(" Huadian power international ", 7437217.4, 3078924.09))
        list.Add(New Data(" Other power plants ", 3831094.84, 1513056.81))
        list.Add(New Data(" Own power plant ", 754594.06, 265813.24))


    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Chart1.ChartAreas.Clear()
        Dim ChartAreas1 As New ChartArea("Read length")   ' Define a new ChartArea
        Chart1.ChartAreas.Add(ChartAreas1)                ' The newly defined ChartArea Join in Chart1
        Chart1.ChartAreas(0).AxisX.Title = " company "   ' Set up ChartArea Inner axis title 
        Chart1.ChartAreas(0).AxisY.Title = " energy "
        Chart1.Series.Clear()


        Dim series1 As New Series(" Total heat supply ")
        series1.ChartType = SeriesChartType.Pie        ' Set up Series Type of drawing    Column Pie
        series1.LegendText = "#PERCENT{P1}" ' Legend percentage 
        'series1.Label = "#PERCENT{P1}" ' Legend percentage 
        Chart1.Series.Add(series1)

        Dim zggrl As Double
        zggrl = 0
        For Each data In list
            zggrl += data. Total heat supply 
        Next

        For Each data In list
            Dim bfb As Double
            bfb = data. Total heat supply  / zggrl * 100

            Dim str_bfb As String
            str_bfb = Format(bfb, "#.#").ToString() + "%"

            Chart1.Series(" Total heat supply ").Points.AddXY(data. Unit type  + " " + str_bfb, data. Total heat supply )
        Next

        Chart1.Legends(0).Docking = Docking.Top             ' Adjust the position of the legend 

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Chart1.ChartAreas.Clear()
        Dim ChartAreas1 As New ChartArea("Read length")   ' Define a new ChartArea
        Chart1.ChartAreas.Add(ChartAreas1)                ' The newly defined ChartArea Join in Chart1
        Chart1.ChartAreas(0).AxisX.Title = " company "   ' Set up ChartArea Inner axis title 
        Chart1.ChartAreas(0).AxisY.Title = " energy "
        Chart1.Series.Clear()


        Dim series1 As New Series(" On grid power ")
        series1.ChartType = SeriesChartType.Pie        ' Set up Series Type of drawing    Column Pie
        series1.LegendText = "#PERCENT{P2}" ' Legend percentage 
        'series1.Label = "#PERCENT{P1}" ' Legend percentage 
        Chart1.Series.Add(series1)

        Dim zggrl As Double
        zggrl = 0
        For Each data In list
            zggrl += data. On grid power 
        Next

        For Each data In list
            Dim bfb As Double
            bfb = data. On grid power  / zggrl * 100

            Dim str_bfb As String
            str_bfb = Format(bfb, "#.##").ToString() + "%"

            Chart1.Series(" On grid power ").Points.AddXY(data. Unit type  + " " + str_bfb, data. On grid power )
        Next

        Chart1.Legends(0).Docking = Docking.Top             ' Adjust the position of the legend 
    End Sub
End Class