Public Class Element
    Public Name As String
    Public Status As Boolean
    Public Punkt As List(Of Integer)
End Class

Dim X as Element
X.Name="Peter"
X.Status=True

X.Punkt.Add(123)

  Public Class Element
        Public Name As String
        Public Status As Boolean
        Public Punkt As List(Of Integer)
 
        Public Sub New()
            Punkt = New List(Of Integer)
        End Sub
    End Class

Dim el As New Element  'New erstellt eine Instanz von Element,
                       'im Konstruktor wird dabei eine Instanz der Liste erzeugt
el.Punkt.Add(123)

    Public Class Element2
        Private _Name As String
        Private _Status As Boolean
        Private _Punkt As List(Of Integer)
 
        Public Sub New()
            _Punkt = New List(Of Integer)
        End Sub
 
        Public Property Name() As String
            Set(value As String)
 
                If String.IsNullOrWhiteSpace(value) Then
                    Throw New ArgumentException("Ungültiger Name")
                End If
 
                _Name = value
            End Set
            Get
                Return _Name
            End Get
        End Property
 
        Public Property Status() As Boolean
            Set(value As Boolean)
                _Status = value
            End Set
            Get
                Return _Status
            End Get
        End Property
 
        Public Sub AddPoint(ByVal p As Integer)
            _Punkt.Add(p)
        End Sub
    End Class