Как добавить координатную сетку в picturebox? - Visual Basic .NET - Ответ 4174152

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x, y, r As Integer
        Dim draw As Graphics = Picture1.CreateGraphics
        r = (TextBox3.Text * 9) * 2
        x = Fix(Picture1.Width / 2) + ((TextBox1.Text * 9) - (r / 2))
        y = Fix(Picture1.Height / 2) + ((TextBox2.Text * 9) - (r / 2))
        draw.DrawEllipse(Pens.Green, x, y, r, r)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim draw As Graphics = Picture1.CreateGraphics
        draw.Clear(Picture1.BackColor)
        For i = 0 To Picture1.Width Step 9
            draw.DrawLine(Pens.Gray, i, 0, i, Picture1.Height)
        Next
        For i = 0 To Picture1.Height Step 9
            draw.DrawLine(Pens.Gray, 0, i, Picture1.Width, i)
        Next
        draw.DrawLine(Pens.Black, 0, 170, 1000, 170)
        draw.DrawLine(Pens.Black, 208, 0, 208, 1000)
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim draw As Graphics = Picture1.CreateGraphics
        Dim x1, y1, x2, y2 As Integer
        x1 = (Picture1.Width / 2) + (TextBox4.Text * 9)
        y1 = (Picture1.Height / 2) - (TextBox5.Text * 9)
        x2 = (Picture1.Width / 2) + (TextBox6.Text * 9)
        y2 = (Picture1.Height / 2) - (TextBox7.Text * 9)
        draw.DrawLine(Pens.Blue, x1, y1, x2, y2)
        MsgBox(y1)
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim draw As Graphics = Picture1.CreateGraphics
        Dim x3, y3, r1, r2 As Integer
        r1 = (TextBox10.Text * 9) * 2
        r2 = (TextBox11.Text * 9) * 2
        x3 = (Picture1.Width / 2) + (TextBox8.Text * 9) - (r1 / 2)
        y3 = (Picture1.Height / 2) - (TextBox9.Text * 9) - (r2 / 2)
        draw.DrawEllipse(Pens.Violet, x3, y3, r1, r2)
    End Sub
 
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim draw As Graphics = Picture1.CreateGraphics
 
        For i = 0 To Picture1.Width Step 9
            draw.DrawLine(Pens.Gray, i, 0, i, Picture1.Height)
        Next
        For i = 0 To Picture1.Height Step 9
            draw.DrawLine(Pens.Gray, 0, i, Picture1.Width, i)
        Next
        draw.DrawLine(Pens.Black, 0, 170, 1000, 170)
        draw.DrawLine(Pens.Black, 208, 0, 208, 1000)
    End Sub
End Class