Проблема построения графика линейной функции y=3x+1 на языке Visual Basic?

Question

[Андрей]

Ниже приведён код, в котором эта функция прописана, но график должен быть поднят на одно значение Y вверх, я прибавил 1 к "3 * x", но результата нет, в чём проблема? Также прикрепляю фото результат

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim g As Graphics = PictureBox1.CreateGraphics
        Dim MyPen As New Pen(Color.Aqua)
        MyPen.Width = 2
        MyPen.Color = Color.Aqua
        Dim x, y, x1, y1 As Integer
        x = -150
        While x <= 150
            x1 = x + 150
            y = 3 * x + 1
            y1 = 100 - y
            g.DrawEllipse(MyPen, x1, y1, 2, 2)
            x += 1
        End While
        MyPen.Dispose()
    End Sub

Comments

[alexalexes]

При ширине линии в 2 единицы можно не заметить изменений в 1 единицу.
Попробуйте поднять график на 10 или 50 единиц, чтобы изменения были заметны.
PS: Убедитесь, что код сохранен и скомпилирован.

[Андрей]

alexalexes, Спасибо, до меня дошло что не так спустя 5 минут после публикации этого вопроса)))