Как сортировать (мин и Макс) Оси X и Y диаграммы в VB .NET 2010

---

Я читаю текстовый файл и строю точки на диаграмме. Файл содержит произвольно расположенные числа в Столбцах. Изначально программа получает минимальные и максимальные числа из столбцов в соответствии с моим требованием. После этого я помещаю их на диаграмму, но оси X и Y не сортируются. Ось показывает случайные числа, а не отсортированные значения (от min до max).
До сих пор то, что я пробовал, скопировано ниже.
Пожалуйста, научите меня, как изменить цвет и размер точек на графике, чтобы дифференцировать их, так как позже мне придется загружать несколько файлов.

Заранее спасибо !!!

Что я уже пробовал:

Dim Textfile As String
        Dim openDlg As New OpenFileDialog

        If openDlg.ShowDialog() = DialogResult.OK Then
            openDlg.Filter = "txt files (*.txt)| *.txt|All files (*.*)|*.*"
            openDlg.FilterIndex = 2
            openDlg.RestoreDirectory = True
            Textfile = openDlg.FileName

            Dim filelines() As String = File.ReadAllLines(Textfile)

            Dim col1 As List(Of Long) = New List(Of Long)()
            Dim col2 As List(Of Long) = New List(Of Long)()
            Dim col3 As List(Of Double) = New List(Of Double)()
            Dim col4 As List(Of Double) = New List(Of Double)()

            Chart1.Series.Clear()
            Dim r As New Series
            r.Name = "Receivers"
            r.ChartType = SeriesChartType.Point
            Chart1.Series.Add(r)

            For Each fileline As String In filelines
                If fileline.StartsWith("R") Then fileline = fileline.Substring(1)
                Dim items() As String = fileline.Split(New Char() {CChar(vbTab), " "}, StringSplitOptions.RemoveEmptyEntries)

                Dim Linenum As Long
                Dim statnum As Double
                Dim Easting As Double
                Dim Northing As Double

                If Integer.TryParse(items(0), Linenum) Then col1.Add(Linenum)
                If Integer.TryParse(items(1), statnum) Then col2.Add(statnum)
                If Double.TryParse(items(2), Easting) Then col3.Add(Easting)
                If Double.TryParse(items(3), Northing) Then col4.Add(Northing)

                r.Points.AddXY(items(2), items(3))
                
               
            Next

            'sorting the columns to get min and max
            col1.Sort()
            col2.Sort()
            col3.Sort()
            col4.Sort()
            
            'getting maximum and minimum value of 4 columns
            Me.Linemax.Text = col1.Item(col1.Count - 1).ToString()
            Me.Linemin.Text = col1.Item(0).ToString()
            Me.statemax.Text = col2.Item(col2.Count - 1).ToString()
            Me.statmin.Text = col2.Item(0).ToString()
            Me.Eastmax.Text = col3.Item(col3.Count - 1).ToString()
            Me.Eastmin.Text = col3.Item(0).ToString()
            Me.Northmax.Text = col4.Item(col4.Count - 1).ToString()
            Me.Northmin.Text = col4.Item(0).ToString()


            'restricted Y axis as per the maximum and minimum values in the column
            Chart1.ChartAreas(0).AxisY.Minimum = col4.Item(0).ToString()
            Chart1.ChartAreas(0).AxisY.Maximum = col4.Item(col4.Count - 1).ToString()
            

        End If
    End Sub

---