Создать программу для построения графика y=2x

 Dim Graph1 As Graphics
    Dim Pen1 As New Pen(Color.Black, 2)
    Dim Pen2 As New Pen(Color.Blue, 2)
    Dim DrawBrush As New SolidBrush(Color.Black)
    Dim DrawFont As New Font("Arial", 10)
    Dim X, Y As Single
    Dim Bitmap As New Bitmap(615, 615)
    Dim i As Integer
    Dim k As Integer = 0

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click 'построение графика
        Graph1 = Graphics.FromImage(Bitmap)
        Graph1.Clear(Color.White)
        For Me.X = -300 To 300 Step 25
            Graph1.DrawString(X / 25, DrawFont, DrawBrush, X + 300, 300)
        Next X
        For Me.Y = -300 To 300 Step 25
            Graph1.DrawString(Y / 25, DrawFont, DrawBrush, 300, 300 - Y)
        Next Y
        Graph1.ScaleTransform(1, -1)
        Graph1.TranslateTransform(300, -300)
        Graph1.DrawLine(Pen1, -300, 0, 300, 0)
        Graph1.DrawLine(Pen1, 0, -300, 0, 300)
        For Me.X = -300 To 300 Step 25
            Graph1.DrawLine(Pen1, X, -5, X, 5)
        Next X
        For Me.Y = -300 To 300 Step 25
            Graph1.DrawLine(Pen1, -5, Y, 5, Y)
        Next Y
        For Me.X = -300 To 300 Step 0.005
            Y = X * 2
            Graph1.DrawEllipse(Pens.Red, X * 25, Y * 25, 1, 1)
        Next X
        PictureBox1.Image = Bitmap
        Button2.Enabled = True
        k += 1
    End Sub

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 'сохранение графика
        Dim sfd As New SaveFileDialog
        sfd.Filter = "Изображения (*.jpg)|*.jpg"
        sfd.FileName = "Graphic " & k
        sfd.DefaultExt = ".jpg"
        sfd.OverwritePrompt = True
        If IO.Directory.Exists(Application.StartupPath & "\img") = False Then
            IO.Directory.CreateDirectory(Application.StartupPath & "\img")
        End If
        sfd.InitialDirectory = Application.StartupPath & "\img"
        If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then
            PictureBox1.Image.Save(sfd.FileName)
            MsgBox("Сохранено" & vbNewLine & sfd.FileName, MsgBoxStyle.Information, "График квадратичной функции")
        End If
 
 
    End Sub