动态创建对象时是否有可能删除过多的代码？

Question

想知道在动态创建表单对象时是否有更短的方式来编写我当前正在编写的内容。

以下代码：

' Margins & width for buttons
        Dim distanceX As Integer = left + 20
        Dim distanceY As Integer = 120
        Dim btnWidth As Integer = 120

        ' Initializing buttons
        removeUndBtn = New Button
        numbBtn = New Button
        capsBtn = New Button
        subsBtn = New Button
        addTagsBtn = New Button
        previewBtn = New Button
        applyBtn = New Button
        cancelBtn = New Button

        ' Settings for buttons
        With removeUndBtn
            .Text = "Remove Underscore"
            .Visible = True
            .Enabled = False
            .Top = distanceY
            .Width = btnWidth
            .Left = distanceX
            AddHandler .Click, AddressOf removeUndAction
        End With
        With numbBtn
            .Text = "Number songs"
            .Visible = True
            .Enabled = False
            .Top = removeUndBtn.Top + 22
            .Width = btnWidth
            .Left = distanceX
            AddHandler .Click, AddressOf numbAction
        End With
        With capsBtn
            .Text = "Capitalization"
            .Visible = True
            .Top = numbBtn.Top + 22
            .Width = btnWidth
            .Left = distanceX
            AddHandler .Click, AddressOf capsAction
        End With
        With subsBtn
            .Text = "Substitution"
            .Visible = True
            .Enabled = False
            .Top = capsBtn.Top + 22
            .Width = btnWidth
            .Left = distanceX
            AddHandler .Click, AddressOf subsAction
        End With
        With addTagsBtn
            .Text = "Add tags"
            .Visible = True
            .Top = subsBtn.Top + 22
            .Width = btnWidth
            .Left = distanceX
            AddHandler .Click, AddressOf addTagsAction
        End With
        With previewBtn
            .Text = "Preview"
            .Visible = True
            .Enabled = False
            .Top = addTagsBtn.Top + 44
            .Width = btnWidth
            .Left = distanceX
            AddHandler .Click, AddressOf previewAction
        End With
        With applyBtn
            .Text = "Apply"
            .Visible = True
            .Top = previewBtn.Top + 22
            .Width = btnWidth
            .Left = distanceX
            AddHandler .Click, AddressOf applyAction
        End With
        With cancelBtn
            .Text = "Cancel"
            .Visible = True
            .Top = applyBtn.Top + 22
            .Width = btnWidth
            .Left = distanceX
            AddHandler .Click, AddressOf cancelAction
        End With

        ' Adding buttons to form
        Me.Controls.Add(removeUndBtn)
        Me.Controls.Add(numbBtn)
        Me.Controls.Add(capsBtn)
        Me.Controls.Add(subsBtn)
        Me.Controls.Add(addTagsBtn)
        Me.Controls.Add(previewBtn)
        Me.Controls.Add(applyBtn)
        Me.Controls.Add(cancelBtn)

上面代码中的按钮是动态创建的，因为创建了上面代码中没有看到的无限数量的对象，扩展了表单的大小。

关于特定变量的提示，默认情况下设置的值设置如此，将多条单调线条组合成一条干净的简单线条。任何类似的东西都是我正在寻找的。

此外，由于其进程尚未完成，因此某些按钮的Enabled设置为false。