Dim PersonObj1 as New Person()
Personobj1.Name = "Mustermann"
 
Dim PersonObj2 as Person = PersonObj1.Clone
 
Public Class Person
    Private m_Name
    Public Property Name as String
    SEt
...
 
 
    Public Function Clone() as PErson
        Pers = New Person
        Pers.Name = me.Name
        return pers
    End Function