Module Module1
    Dim Elemente As New List(Of Element)
 
    Sub Main()
        Elemente.Add(New Element() With {.Text = "Hallo, ", .Fett = True})
        Elemente.Add(New Element() With {.Text = "du!", .Kursiv = True, _
          .Unterstrichen = True})
    End Sub
End Module
 
<Serializable()> _
Class Element
    Private _kursiv As Boolean
    Public Property Kursiv() As Boolean
        Get
            Return _kursiv
        End Get
        Set(ByVal value As Boolean)
            _kursiv = value
        End Set
    End Property
 
    Private _fett As Boolean
    Public Property Fett() As Boolean
        Get
            Return _fett
        End Get
        Set(ByVal value As Boolean)
            _fett = value
        End Set
    End Property
 
    Private _unterstrichen As Boolean
    Public Property Unterstrichen() As Boolean
        Get
            Return _unterstrichen
        End Get
        Set(ByVal value As Boolean)
            _unterstrichen = value
        End Set
    End Property
 
    Private _text As String
    Public Property Text() As String
        Get
            Return _text
        End Get
        Set(ByVal value As String)
            _text = value
        End Set
    End Property
End Class