Private Sub Calc()Dim PntList As List(Of KeyValuePair(Of Integer, Integer))If Not PntList Is Nothing ThenIf Home_SF1.Text = "" ThenElseIf Home_SP1.Text = "" ThenElsePntList.Add(New KeyValuePair(Of Integer, Integer)(Home_SF1.Text, Home_SP1.Text))PC_SF1.Content = "Math.Round((Home_SP1.Text / Home_SF1.Text), 2)End IfEnd IfIf Home_SF2.Text = "" ThenElseIf Home_SP2.Text = "" ThenElsePntList.Add(New KeyValuePair(Of Integer, Integer)(Home_SF2.Text, Home_SP2.Text))PC_SF2.Content = Math.Round((Home_SP2.Text / Home_SF2.Text), 2)End IfEnd IfIf Home_SF3.Text = "" ThenElseIf Home_SP3.Text = "" ThenElsePntList.Add(New KeyValuePair(Of Integer, Integer)(Home_SF3.Text, Home_SP3.Text))PC_SF3.Content = Math.Round((Home_SP3.Text / Home_SF3.Text), 2)End IfEnd IfIf Home_SF4.Text = "" ThenElseIf Home_SP4.Text = "" ThenElsePntList.Add(New KeyValuePair(Of Integer, Integer)(Home_SF4.Text, Home_SP4.Text))PC_SF4.Content = Math.Round((Home_SP4.Text / Home_SF4.Text), 2)End IfEnd IfDirectCast(myChart.Series(0), LineSeries).ItemsSource = PntListElseEnd IfEnd Sub