Public Class Person
    Implements ICloneable
 
    Private _vorname As String = "unbekannt"
 
    Public Property Vorname As String
        Set(value As String)
            If String.IsNullOrWhiteSpace(value) Then
                Throw New ArgumentException("Vorname fehlt")
            End If
            _vorname = value
        End Set
        Get
            Return _vorname
        End Get
    End Property
 
    Private _Nachname As String
 
    Public Property Nachname As String
        Set(value As String)
            If String.IsNullOrWhiteSpace(value) Then
                Throw New ArgumentException("Nachname fehlt")
            End If
            _Nachname = value
        End Set
        Get
            Return _Nachname
        End Get
    End Property
 
    Dim _Alter As Int16
 
    Public Property alter As Short
        Set(value As Short)
            If value < 0 Or value > 110 Then
                Throw New ArgumentException("Alter unplausibel")
            End If
            _Alter = value
        End Set
        Get
            Return _Alter
        End Get
    End Property
 
    Public Sub New(ByVal vornameperson As String, _
        nachnameperson As String, alterinjahren As Short)
 
        Vorname = vornameperson
        Nachname = nachnameperson
        alter = alterinjahren
    End Sub
 
    Public Function Clone() As Object Implements System.ICloneable.Clone
        Return MemberwiseClone()
    End Function
End Class

 Dim personen As New List(Of Person)
 
 personen.Add(New Person("Hans", "Meyer", 45))
 personen.Add(New Person("Georg", "Wastel", 23))
 
 Dim c As Integer = personen.Count
 
 With personen(1)
     Dim nam As String = .Vorname & " " & .Nachname
 End With
 
 Dim myperson As Person = CType(personen(1).Clone, Person)
 
 For Each p As Person In personen
     Console.WriteLine(p.Nachname)
 Next p