Как быть в случае, если много форм на которых часть элементов одинакова

Imports System.ComponentModel
Public Class Form4
    Private dr As Door
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        dr = New Door(drType.Type2, 2000, 3000)
        With dr
            .Thickness = 50
            .Material = "ddddddd"
            .Heater = "uuuuuuuu uuuuu"
            .Frn = "ffff 444 ffff"
        End With
        PropertyGrid1.SelectedObject = dr
    End Sub
End Class
Public Enum drType
    Type1
    Type2
    Type3
End Enum
Public Class Door
    Public Sub New()
        _Width = 1500
        _Height = 2500
    End Sub
    Public Sub New(ByVal dType As drType, ByVal dWidth As Double, ByVal dHeight As Double)
        Me.new()
        _Type = dType
        _Width = dWidth
        _Height = dHeight
    End Sub
    <DisplayName("Тип двери")>
    <Description("тип двери")>
    Public Property Type As drType
    <DisplayName("Ширина двери")>
    <Description("ширина , мм")>
    <Category("Размеры")>
    Public Property Width As Double
    <DisplayName("Высота двери")>
    <Description("высота, мм")>
    <Category("Размеры")>
    Public Property Height As Double
    <DisplayName("Толщина двери")>
    <Description("толщина, мм")>
    <Category("Размеры")>
    Public Property Thickness As Double
    <DisplayName("Основной материал")>
    <Description("основной материал")>
    <Category("Материалы")>
    Public Property Material As String
    <DisplayName("Утеплитель")>
    <Description("утеплитель")>
    <Category("Материалы")>
    Public Property Heater As String
    <DisplayName("Фурнитура")>
    <Description("фурнитура")>
    Public Property Frn As String
    'и т.д.
End Class