Dim td As New Date
        Dim culture = New CultureInfo("de-DE", True)
 
        td = DateTime.Parse(TextBox3.Text, culture)
        Dim p1 As New Person(TextBox1.Text, TextBox2.Text, td)
        ListBox1.Items.Add(p1._Name)
        ListBox1.Items.Add(p1._Vorname)
        ListBox1.Items.Add(p1._Geb)
 
Public Class Person
    Public Name As String
    Public Vorname As String
    Public Geb As Date
    Public Alter As Integer
 
    Sub New(ByVal s As String, ByVal s1 As String, ByVal Geb As Date)
        Name = s
        Vorname = s1
        Geb = Geb.Date
    End Sub
 
 
    Public Property _Name() As String
        Get
            Return Name
        End Get
        Set(ByVal value As String)
            Name = value
        End Set
    End Property
    Public Property _Vorname() As String
        Get
            Return Vorname
        End Get
        Set(ByVal value As String)
            Vorname = value
        End Set
    End Property
 
    Public Property _Geb() As Date
        Get
            Return Geb
        End Get
        Set(ByVal value As Date)
            Geb = value.Date
        End Set
    End Property
 
 
 
    Public Property _Alter() As Integer
        Get
            Return Alter
        End Get
        Set(ByVal value As Integer)
            Alter = value
        End Set
    End Property
 
End Class