introducir el código aqui
Private Sub chart()
    Dim j As Integer
    Dim pen As New Pen(Color.Black, 1)
    Dim g As Graphics
    g = PictureBox1.CreateGraphics
    g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
    g.Clear(Color.White)
    Dim myPointsArray As New List(Of PointF)
    myPointsArray.Clear()
    For j = 1 To 10 Step 1
    myPointsArray(j) = New PointF(k, LDR_1L)
    NEXT

g.drawcurve(pen, myPointsArray.ToArray, 1.5F)

End Sub