Public Class cClone
 
    Implements ICloneable
 
    Private gString As String
    Private gInteger As Integer
    Private gObject As cClone
 
    Public Sub New(ByVal i As Integer, _
                   ByVal s As String, _
                   ByVal o As cClone)
 
        gString = s
        gInteger = i
        gObject = o
    End Sub
 
    Public Property str() As String
        Get
            str = gString
        End Get
        Set(ByVal value As String)
            gString = value
        End Set
    End Property
 
    Public Property integ() As Integer
        Get
            Return gInteger
        End Get
        Set(ByVal value As Integer)
            gInteger = value
        End Set
    End Property
 
    Public Property obj() As cClone
        Get
            Return gObject
        End Get
        Set(ByVal value As cClone)
            gObject = value
        End Set
    End Property
 
    Public Function Clone() As Object _
    Implements System.ICloneable.Clone
        Return MemberwiseClone()
    End Function
 
End Class
 
 
'Einige Instanzen der Klasse konstruieren:
Dim vvv As New cClone(15, "vvv", Nothing)
Dim xxx As New cClone(10, "test", vvv)
Dim yyy As cClone
 
'Implementierte Clone-Methode ausführen
yyy = xxx.Clone
 
'In xxx Änderungen vornehmen
xxx.str = "neu"
xxx.obj.str = "neu"