Public Class MyLabel
    Inherits Label
 
    Public Function Copy() As MyLabel
        Dim names() As String = {"Parent", "WindowTarget"}
        Dim l As New MyLabel
 
        For Each p As Reflection.PropertyInfo In _
        l.GetType().GetProperties(Reflection.BindingFlags.Instance Or _
                                  Reflection.BindingFlags.Public)
            Try
                If p.CanWrite AndAlso _
                    Array.IndexOf(names, p.Name) = -1 Then
                    p.SetValue(l, p.GetValue(Me, Nothing), Nothing)
                    Debug.WriteLine(p.Name)
                End If
            Catch ex As Exception
                Debug.WriteLine(ex.ToString)
            End Try
        Next
 
        Return l
    End Function
 
End Class
 
'// Aufruf:
Dim label As New MyLabel
label.Text = "label1"
Me.Panel1.Controls.Add(label)
Me.Panel2.Controls.Add(label.Copy)