Public Class Person
    Private Name1 As String
    Private Name2 As String
    Public Property Vorname() As String
        Get
            Return Name1
        End Get
        Set(ByVal value As String)
            Name1 = value
        End Set
    End Property
    Public Property Nachname() As String
        Get
            Return Name2
        End Get
        Set(ByVal value As String)
            Name2 = value
        End Set
    End Property
    Public Function Alter(ByVal Geburtstag As Date) As Integer
        Return Int(Now.Subtract(Geburtstag).Days / 365.25)
    End Function
End Class