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