Графическое отображение редактирования размеров элементов на макете

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim sh As Integer = Me.Width
        Dim vs As Integer = Me.Height
        Dim Ris As New Bitmap(sh, vs)
        Dim gradient As Graphics = Graphics.FromImage(Ris)
        For i = 1 To sh Step 10
            gradient.DrawLine(Pens.Black, i, 1, i, vs)
        Next
        For i = 1 To vs Step 10
            gradient.DrawLine(Pens.Black, 1, i, sh, i)
        Next
        Me.BackgroundImage = Ris
    End Sub

Public Class Form1
    Dim st As Integer = 10
    Dim sh As Integer = Me.Width
    Dim vs As Integer = Me.Height
    Dim ms(vs / st, sh / st) As Byte
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        gr()
    End Sub
    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        Dim i, n As Integer
        i = Fix(e.X / st)
        n = Fix(e.Y / st)
        ms(n, i) = 1 - ms(n, i)
        gr()
    End Sub
    Sub gr()
        Dim Ris As New Bitmap(sh, vs)
        Dim gradient As Graphics = Graphics.FromImage(Ris)
        For i = 0 To ms.GetLength(1) - 1
            For n = 0 To ms.GetLength(0) - 1
                If ms(n, i) = 0 Then
                    gradient.FillRectangle(Brushes.Gray, (i * 10) + 1, (n * 10) + 1, st, st)
                Else
                    gradient.FillRectangle(Brushes.Red, (i * 10) + 1, (n * 10) + 1, st, st)
                End If
 
            Next
        Next
        For i = 1 To sh Step st
            gradient.DrawLine(Pens.Black, i, 1, i, vs)
        Next
        For i = 1 To vs Step st
            gradient.DrawLine(Pens.Black, 1, i, sh, i)
        Next
        Me.BackgroundImage = Ris
        Me.Refresh()
    End Sub
End Class