Клонирование элементов управления с сохранением всех свойств

Private Function LblClone() As Label
Dim m As Int16
Me.Controls.Add(New Label) : m = Me.Controls.Count
LblClone = Controls.Item(m - c1)
With LblClone
   .BackColor = lbl0.BackColor : .BorderStyle = lbl0.BorderStyle
   .Font = lbl0.Font : .ForeColor = lbl0.ForeColor
   .AutoSize = lbl0.AutoSize
   .Visible = True : .BringToFront()
 
   '.Text = ...
End With
End Function

    Dim Lbl_Lst As New List(Of Label)
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        CreateLbl("Test at " & Now.ToLongTimeString)
    End Sub
 
    Sub CreateLbl(ByVal Txt As String) 'Тут я задаю все свойства, и передаю параметр или пачку
        Dim L As New Label With {.Left = 10, .AutoSize = False, .Width = 150, .Height = 20, .BackColor = Color.Gray, .ForeColor = Color.White, .Top = Lbl_Lst.Count * 30 + 20, .Text = Txt, .TextAlign = ContentAlignment.MiddleLeft}
        Lbl_Lst.Add(L)
        Me.Controls.Add(L)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Lbl_Lst(2).Text = "Changed text"
    End Sub

        Lbl_Lst(1).Dispose()

Controls.Remove...

Lbl_Lst.Clear()