私なりに作成したプログラムなのですが下のコードのPictureBoxの座標とグラフの座標を合わせるにはどのようにすればよろしいのでしょうか？どなたか教えてくださいお願いします。

　　　　　　　　　　　　　　　　　　　　　　　　　↓

Public Class Form1
    
    Public XMax, YMax As Single
    Public Xa, Ya As Single

   
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim a, b, c As Double
        Dim X1, X2, Y1, Y2 As Single
        Dim mypen As New Pen(Color.Blue, 2)
        Dim g As Graphics = PictureBox1.CreateGraphics
        g.Clear(Color.White)
        g.DrawLine(Pens.Black, 0, YMax / 2, XMax, YMax / 2)
        g.DrawLine(Pens.Black, XMax / 2, YMax, XMax / 2, 0)
        g.DrawRectangle(Pens.Black, 0, 0, XMax - 1, YMax - 1)


        a = Val(TextBox1.Text)
        b = Val(TextBox2.Text)
        c = Val(TextBox3.Text)

        For i = 0 To XMax
            X1 = (Xa * 2 / XMax) * (i - (XMax / 2))
            If sender.Text = Button1.Text Then
                Y1 = a * X1 * X1 + b * X1 + c

            End If

            Y1 = -Y1 * YMax / Ya / 2 + (YMax / 2)
            If i > 0 Then

            End If
            '
            g.DrawLine(mypen, X2, Y2, i, Y1)

            X2 = i
            Y2 = Y1

        Next
       
    End Sub
   
   
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        XMax = PictureBox1.Width
        YMax = PictureBox1.Height
        Xa = 6
        Ya = 6

    End Sub
End Class