Пирамида не растягивается по вертикали

Public Class Form1
    Dim p As Integer
    Dim a, x0, y0 As Single
    Dim grad As Double
    Dim  x1, y1, o As Single
 
    Private Function Piramida() As Integer
        Dim g As Graphics = PictureBox1.CreateGraphics()
        Dim pen1 As New System.Drawing.Pen(Color.Black, 2)
        Dim points(7) As Point
        Dim pointss(7) As Point
        Dim i, j As Integer
        Dim m As New Drawing2D.Matrix
        m.RotateAt(grad, New Point(235 + x0, 235 + y0))
        g.Transform = m
        g.Clear(Color.White)
        a = 225
 
        For i = 0 To 6 Step 2
            For j = 0 To 6 Step 2
                pointss(j) = New Point((a - 100 - x1 * 7) + (20 + x1) * j + x0, (a + 40) - 10 * j + y0) 'левая ...
                pointss(j + 1) = New Point((a - 100 - x1 * 7) + (20 + x1) * j + x0, ((a + 20) - 10 * j + y0)) '... лестница
            Next
            points(i) = New Point((a + 180 + x1 * 7) - (20 + x1) * i + x0, (a + 40) - 10 * i + y0) 'правая ...
            points(i + 1) = New Point((a + 180 + x1 * 7) - (20 + x1) * i + x0, (a + 20) - 10 * i + y0) '... лестница
        Next
        g.DrawLines(pen1, points)
        g.DrawLines(pen1, pointss)
        g.DrawLine(pen1, 125 + x0 - x1 * 7, 265 + y0, 405 + x0 + x1 * 7, 265 + y0) 'нижнее основание
        g.DrawLine(pen1, 245 + x0 - x1, 185 + y0, 285 + x0 + x1, 185 + y0) 'верхнее основание
        Return a
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        p = Piramida()
    End Sub
    Private Sub HScrollBar1_Scroll_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll
        grad = HScrollBar1.Value
        Label9.Text = grad
        p = Piramida()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim ochistka As Graphics = PictureBox1.CreateGraphics()
        ochistka.Clear(Color.White)
    End Sub
 
    Private Sub VScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar1.Scroll
        y1 = VScrollBar1.Value / 8
        p = Piramida()
    End Sub
 
    Private Sub VScrollBar2_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar2.Scroll
        x1 = VScrollBar2.Value / 8
        p = Piramida()
    End Sub
    Private Sub VScrollBar3_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar3.Scroll
        y0 = VScrollBar3.Value
        p = Piramida()
    End Sub
 
    Private Sub VScrollBar4_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar4.Scroll
        x0 = VScrollBar4.Value
        p = Piramida()
    End Sub
 
    Private Sub HScrollBar2_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar2.Scroll
 
    End Sub
End Class

Imports System.Drawing.Drawing2D
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        VScrollBar1.Value = 10
        VScrollBar2.Value = 10
    End Sub
 
 
    Private Sub PictureBox1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        Dim gp As New GraphicsPath
 
        gp.AddPolygon(New Point() _
                      {New Point(-25, -25), New Point(25, -25), _
                       New Point(25, 25), New Point(-25, 25)})
 
        Dim scaleX As Single = CSng(VScrollBar1.Value / 10)
        Dim scaleY As Single = CSng(VScrollBar2.Value / 10)
 
        Dim m As New Matrix
        m.Scale(scaleX, scaleY)
 
        gp.Transform(m)
 
        m.Dispose()
 
        e.Graphics.TranslateTransform(CSng(PictureBox1.Width / 2), CSng(PictureBox1.Height / 2))
 
        e.Graphics.DrawPath(Pens.Black, gp)
    End Sub
 
    Private Sub VScrollBar1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VScrollBar2.ValueChanged, VScrollBar1.ValueChanged
        PictureBox1.Refresh()
    End Sub
End Class