План завода с объектами, которые можно расставлять мышью

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: данная строка кода позволяет загрузить данные в таблицу "_ДЛЯ_ПРОГРАММЫ____DataSet.Основная". При необходимости она может быть перемещена или удалена.
        Me.ОсновнаяTableAdapter.Fill(Me._ДЛЯ_ПРОГРАММЫ____DataSet.Основная)
    End Sub
    Private Sub ОсновнаяBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОсновнаяBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.ОсновнаяBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me._ДЛЯ_ПРОГРАММЫ____DataSet)
    End Sub
    Private Sub ОсновнаяDataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles ОсновнаяDataGridView.CellContentClick
    End Sub
    Private Sub Form1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Randomize()
        For i As Integer = 0 To 30
            Dim p As New Panel()
            p.Width = 22
            p.Height = 22
            p.BackColor = Color.Gold
            p.Left = Int(Me.Width - 730)
            p.Top = Int(Me.Height - 590)
            AddHandler p.MouseMove, AddressOf p_MouseMove
            Me.Controls.Add(p)
        Next
        Randomize()
        For i As Integer = 0 To 30
            Dim p As New Panel()
            p.Width = 22
            p.Height = 22
            p.BackColor = Color.Brown
            p.Left = Int(Me.Width - 700)
            p.Top = Int(Me.Height - 590)
            AddHandler p.MouseMove, AddressOf p_MouseMove
            Me.Controls.Add(p)
        Next
        Randomize()
        For i As Integer = 0 To 30
            Dim p As New Panel()
            p.Width = 22
            p.Height = 22
            p.BackColor = Color.Aqua
            p.Left = Int(Me.Width - 670)
            p.Top = Int(Me.Height - 590)
            AddHandler p.MouseMove, AddressOf p_MouseMove
            Me.Controls.Add(p)
        Next
        Randomize()
        For i As Integer = 0 To 30
            Dim p As New Panel()
            p.Width = 22
            p.Height = 22
            p.BackColor = Color.Blue
            p.Left = Int(Me.Width - 640)
            p.Top = Int(Me.Height - 590)
            AddHandler p.MouseMove, AddressOf p_MouseMove
            Me.Controls.Add(p)
        Next
    End Sub
    Private Sub p_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        If Control.MouseButtons = Windows.Forms.MouseButtons.Left Then
            CType(sender, Panel).Left = Control.MousePosition.X - Me.Left - CType(sender, Panel).Width
            CType(sender, Panel).Top = Control.MousePosition.Y - Me.Top - CType(sender, Panel).Height
        End If
    End Sub
End Class