Sub1
        sda.Fill(dt)

        Dim chart As NChart = NChartControl1.Charts(0)
        chart.LabelLayout.EnableInitialPositioning = True
        Dim rnd As New Random

        Dim OldSeries As String = ""
        Dim NewSeries As String = ""

        For i As Integer = 0 To dt.Rows.Count - 1

            NewSeries = dt.Rows(i)(0).ToString

            Dim line As New NLineSeries()
   

            chart.Series.Add(line)

                line.MultiLineMode = MultiLineMode.Series
                line.Legend.TextStyle.FontStyle.EmSize = New NLength(8)
                line.DataLabelStyle.Visible = True
                line.Name = NewSeries
                line.LineSegmentShape = LineSegmentShape.Line

                line.UseXValues = True
             
                line.BorderStyle.Color = Color.Black
                line.DataLabelStyle.Visible = True
                line.InflateMargins = True
                line.MarkerStyle.Visible = True
                line.MarkerStyle.BorderStyle.Color = Color.Black
               
                line.MarkerStyle.FillStyle = New NColorFillStyle(Color.FromArgb(255, rnd.Next(255), rnd.Next(255), rnd.Next(255)))
                line.MarkerStyle.PointShape = i
                line.MarkerStyle.Width = New NLength(2, NRelativeUnit.ParentPercentage)
                line.MarkerStyle.Height = New NLength(2, NRelativeUnit.ParentPercentage)
      

               
                UpdateTimeSpan(NewSeries, i)

        Next

        ' apply style sheet
        Dim styleSheet As NStyleSheet = NStyleSheet.CreatePredefinedStyleSheet(PredefinedStyleSheet.FreshMultiColor)
        styleSheet.Apply(NChartControl1.Document)

        UpdateDateTimeScale()
       

    End Sub
    Private Sub UpdateTimeSpan(Test As String, Pnt As Integer)
        Dim myConnection As New SqlConnection(strConnString)
        Dim myReader As SqlDataReader = Nothing
        Dim dt As New DataTable()
        Dim con As New SqlConnection(strConnString)
        Dim sda As New SqlDataAdapter()
        Dim cmd As New SqlCommand("GetProductionTestDaily")
        cmd.CommandType = CommandType.StoredProcedure

        Dim dteFrom As Date
        Dim dteTo As Date
        Dim txtTest As String

        Dim startDate As DateTime = DateTime.Parse(Me.txtdteFrom.Text)
        dteTo = DateAdd(DateInterval.Day, 1, CDate(Me.txtdteTo.Text)).ToString

        Dim endDate As DateTime

        Dim rnd As New Random

        endDate = dteTo

        dteFrom = Me.txtdteFrom.Text
        txtTest = Me.ddTest.SelectedValue

        cmd.Parameters.AddWithValue("@dteFrom", dteFrom)
        cmd.Parameters.AddWithValue("@dteTo", dteTo)
        cmd.Parameters.AddWithValue("@Test", Test)

        cmd.Connection = con
        sda.SelectCommand = cmd

        If startDate > endDate Then
            Dim temp As DateTime = startDate

            startDate = endDate
            endDate = temp
        End If

        ' Get the line series from the chart
        Dim chart As NChart = NChartControl1.Charts(0)
        Dim line As NLineSeries = CType(chart.Series(0), NLineSeries)

        Dim span As TimeSpan = endDate.Subtract(startDate)
        span = New TimeSpan(span.Ticks / 30)
        Dim span1 As TimeSpan '= span.Days

        line.UseXValues = True

        sda.Fill(dt)

        If span.Ticks > 0 Then
           For i As Integer = 0 To dt.Rows.Count - 1

                dteTo = dt.Rows(i)(0)
                span1 = dteTo.Subtract(startDate)

                startDate = startDate.AddDays(span1.Days)

                line.XValues.Add(startDate)
                line.Values.Add(dt.Rows(i)(1))
                line.MarkerStyle.PointShape = Pnt

            Next

      
        End If

    End Sub