График формулы на PictureBox

' задаем переменные
        Dim NewX1 As Integer
        Dim NewY1 As Integer
        Dim OldX1 As Integer = 0
        Dim OldY1 As Integer = 0
        Dim g As Graphics = Picturebox1.CreateGraphics
' сглаживание
        g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
'переносим начало координат на (х,у)
        g.TranslateTransform(320, 270)
'собственно строим
        Dim X As Double = -1000
        Do While Not X > 1000
            Dim Y As Double =  a*X ^ 2 + b*x + c
            Dim X1 As Integer = X
            Dim Y1 As Integer = Y
            NewX1 = X1
            NewY1 = -Y1 'отражаем ось у
            If OldX1 = 0 Then OldX1 = NewX1
            If OldY1 = 0 Then OldY1 = NewY1
            g.DrawLine(New Pen(Color.Red, 2), OldX1, OldY1, NewX1, NewY1)
            X += 1
            OldX1 = NewX1
            OldY1 = NewY1
        Loop
'освобождаем g
        g.Dispose()