Построение графика в Chart

Imports System.Windows.Forms.DataVisualization.Charting
Public Class Form3
    Private EI() As EnergyInformation
    Private dt() As String
    Private Sub Form3_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        setData()
        Dim ci As New Globalization.CultureInfo("ru-RU")
        Dim dtfi As Globalization.DateTimeFormatInfo = ci.DateTimeFormat
        dt = dtfi.MonthNames
        ReDim Preserve dt(11)
    End Sub
    Private Sub ListBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Dim tt = From t In EI Where t.town = ListBox1.SelectedItem
        Chart1.Series.Clear()
        Dim s As Series = New Series(tt(0).town & "100") With {
                                        .IsVisibleInLegend = True,
                                        .IsXValueIndexed = False,
                                        .ChartType = SeriesChartType.Line,
                                        .borderWidth = 2,
                                        .borderColor = Color.Red}
        s.Points.DataBindXY(dt, tt(0).Energy100)
        Chart1.Series.Add(s)
        s = New Series(tt(0).town & "320") With {
                                        .IsVisibleInLegend = True,
                                        .IsXValueIndexed = False,
                                        .ChartType = SeriesChartType.Line,
                                        .borderWidth = 2,
                                        .borderColor = Color.Green}
        s.Points.DataBindXY(dt, tt(0).Energy320)
        Chart1.Series.Add(s)
        With Chart1.ChartAreas(0)
            .AxisX.Minimum = 1
            .AxisX.Maximum = 12
            .AxisX.Interval = 1
            .AxisX.MinorTickMark.Interval = 1
            .AxisX.MinorTickMark.TickMarkStyle = TickMarkStyle.OutsideArea
            .AxisX.MinorTickMark.Enabled = True
            .AxisY.Interval = 0.1
        End With
    End Sub
    Private Sub setData()
        Dim r As New Random
        ReDim EI(ListBox1.Items.Count - 1)
        Dim k As Integer
        For Each tn As String In ListBox1.Items
            Dim ee As New EnergyInformation(tn)
            Dim mm100 As Double() = Enumerable.Range(0, 12).Select(Function(j) r.Next(10, 90) / 100).ToArray()
            ee.Energy100 = mm100
            Dim mm320(mm100.Length - 1) As Double
            For i = 0 To mm320.Length - 1
                mm320(i) = 320 * mm100(i) / 400 'пересчет выбран произвольно
            Next
            ee.Energy320 = mm320
            EI(k) = ee
            k += 1
        Next
    End Sub
End Class
Public Class EnergyInformation
    Public Sub New(ByVal tn As String)
        MyBase.new()
        _town = tn
    End Sub
    Public Property town As String
    Public Property Energy100 As Double()
    Public Property Energy320 As Double()
End Class

Imports System.Windows.Forms.DataVisualization.Charting
Public Class Form3
    Private EI() As EnergyInformation 'массив объектов EnergyInformation по городам
    Private dt() As String
    Private Sub Form3_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        setData() 'моделируем данные (в вашем случае моделировать ничего не нужно, данные уже есть)
        Dim ci As New Globalization.CultureInfo("ru-RU")
        Dim dtfi As Globalization.DateTimeFormatInfo = ci.DateTimeFormat
        dt = dtfi.MonthNames
        ReDim Preserve dt(11) 'получили массив с имнами месяцев года
    End Sub
    Private Sub ListBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Dim tt = From t In EI Where t.town = ListBox1.SelectedItem 'определяем объект EnergyInformation в соответствии с выбранным городом
        Chart1.Series.Clear()
        Dim s As Series = New Series(tt(0).town & "100") With {
                                        .IsVisibleInLegend = True,
                                        .IsXValueIndexed = False,
                                        .ChartType = SeriesChartType.Line,
                                        .borderWidth = 2,
                                        .borderColor = Color.Red}
        s.Points.DataBindXY(dt, tt(0).Energy100)
        Chart1.Series.Add(s) 'определяем серию для объекта tt (данные Energy100) и добавляем ее к графику 
        s = New Series(tt(0).town & "320") With {
                                        .IsVisibleInLegend = True,
                                        .IsXValueIndexed = False,
                                        .ChartType = SeriesChartType.Line,
                                        .borderWidth = 2,
                                        .borderColor = Color.Green}
        s.Points.DataBindXY(dt, tt(0).Energy320)
        Chart1.Series.Add(s) 'определяем серию для объекта tt (данные Energy320) и добавляем ее к графику 
        With Chart1.ChartAreas(0)
            .AxisX.Minimum = 1
            .AxisX.Maximum = 12
            .AxisX.Interval = 1
            .AxisX.MinorTickMark.Interval = 1
            .AxisX.MinorTickMark.TickMarkStyle = TickMarkStyle.OutsideArea
            .AxisX.MinorTickMark.Enabled = True
            .AxisY.Interval = 0.1
        End With 'настройка внешнего вида
    End Sub
    Private Sub setData()
        Dim r As New Random
        ReDim EI(ListBox1.Items.Count - 1)
        Dim k As Integer
        For Each tn As String In ListBox1.Items 'цикл по городам
            Dim ee As New EnergyInformation(tn)
            'моделируем данные Energy100
            Dim mm100 As Double() = Enumerable.Range(0, 12).Select(Function(j) r.Next(10, 90) / 100).ToArray()
            ee.Energy100 = mm100
            Dim mm320(mm100.Length - 1) As Double
            'выполняем пересчет для Energy320
            For i = 0 To mm320.Length - 1
                mm320(i) = 320 * mm100(i) / 400 'пересчет выбран произвольно
            Next
            ee.Energy320 = mm320
            EI(k) = ee
            k += 1
        Next
    End Sub
End Class
Public Class EnergyInformation
    Public Sub New(ByVal tn As String)
        MyBase.new()
        _town = tn
    End Sub
    Public Property town As String 'имя города
    Public Property Energy100 As Double() 'значения выработки солнечной панели (100 вт)
    Public Property Energy320 As Double() 'значения выработки солнечной панели (320 вт), получено пересчетом от Energy100
End Class

Imports System.Windows.Forms.DataVisualization.Charting
Public Class Form4
    Private EI() As EngInfo
    Private dt() As String
    Private Sub Form4_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        getMonthArray()
        readData()
        RadioButton1.Checked = True
    End Sub
    Private Sub ListBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Dim tt = From t In EI Where t.town = ListBox1.SelectedItem 'определяем объект в соответствии с выбранным городом
        Dim fd() As Double
        Dim t1 As Double = 320, t2 As Double = 400
        Chart1.Series.Clear()
        Dim s1 As New Series(tt(0).town & "_Base") With {
                                .IsVisibleInLegend = True,
                                .IsXValueIndexed = False,
                                .ChartType = SeriesChartType.Spline,
                                .borderWidth = 2,
                                .borderColor = Color.Red}
        Dim s2 As New Series(tt(0).town & "_F(Base)") With {
                                        .IsVisibleInLegend = True,
                                        .IsXValueIndexed = False,
                                        .ChartType = SeriesChartType.Spline,
                                        .borderWidth = 2,
                                        .borderColor = Color.Green}
        Select Case True
            Case RadioButton1.Checked 'базовые данные из текстового файла
                s1.Points.DataBindXY(dt, tt(0).Energy100)
                Chart1.Series.Add(s1)
            Case RadioButton2.Checked 'преобразованные данные в соответствии с дополнительными параметрами (t1,t2,...)
                fd = transformation(tt(0).Energy100, t1, t2)
                s2.Points.DataBindXY(dt, fd)
                Chart1.Series.Add(s2)
            Case RadioButton3.Checked 'оба графика
                s1.Points.DataBindXY(dt, tt(0).Energy100)
                fd = transformation(tt(0).Energy100, t1, t2)
                s2.Points.DataBindXY(dt, fd)
                Chart1.Series.Add(s1)
                Chart1.Series.Add(s2)
        End Select
        With Chart1.ChartAreas(0)
            .AxisX.Minimum = 1
            .AxisX.Maximum = 12
            .AxisX.Interval = 1
            .AxisX.MinorTickMark.Interval = 1
            .AxisX.MinorTickMark.TickMarkStyle = TickMarkStyle.OutsideArea
            .AxisX.MinorTickMark.Enabled = True
            .AxisY.Interval = 0.1
            .AxisY.Maximum = 0.9
        End With
    End Sub
    Private Sub getMonthArray()
        Dim ci As New Globalization.CultureInfo("ru-RU")
        Dim dtfi As Globalization.DateTimeFormatInfo = ci.DateTimeFormat
        dt = dtfi.MonthNames
        ReDim Preserve dt(11) 'получили массив с именами месяцев года
    End Sub
    Private Sub readData()
        Dim ln() As String = IO.File.ReadAllLines("InfoForTowns.txt", System.Text.Encoding.Default) 'файл в папке с программщй
        ReDim EI(ln.Length / 2 - 1)
        Dim en As EngInfo
        For i = 0 To ln.Length - 2 Step 2
            ListBox1.Items.Add(ln(i))
            en = New EngInfo(ln(i))
            en.Energy100 = ln(i + 1).Split({";"c}).Select(Function(x) CDbl(x)).ToArray
            EI(i / 2) = en
        Next
    End Sub
    Private Function transformation(ByVal ar() As Double, ByVal t1 As Double, ByVal t2 As Double) As Double()
        Dim rr(ar.Length - 1) As Double
        For i = 0 To ar.Length - 1
            rr(i) = t1 * ar(i) / t2
        Next
        Return rr
    End Function
End Class
Public Structure EngInfo
    Public Sub New(ByVal tn As String)
        _town = tn
    End Sub
    Public Property town As String 'имя города
    Public Property Energy100 As Double() 'значения выработки солнечной панели (100 вт)
End Structure